SOURCE CODE Menghitung Masa Kerja dan Umur/Usia di Visual Basic 6.0

bagaimana menghitung masa kerja dan umur di visul basic 6.0 , disini saya coba memberikan formula yang saya dapat dari pengalaman di microsoft excell yang kemudian saya kembangkan ke visual basic 6.0

ini source code nya ……………………….. moga bermanfaat bagi pembaca

Dim HARI As Double
Dim BULAN As Double
Dim TAHUN As Double
Dim MAXIMALHARI As Double
ketemu = ((‘texttgllahir’)) + “-” + ((‘textbulanlahir’)) + “-” + ((‘texttahunlahir’))
HARI = (DatePart(“d”, Now)) – (DatePart(“d”,ketemu))
BULAN = (DatePart(“m”, Now)) – (DatePart(“m”,ketemu))
TAHUN = (DatePart(“yyyy”, Now)) – (DatePart(“yyyy”, ketemu))
MAXIMALHARI = Day((DateAdd(“d”, -1, DateAdd(“m”, 1, DateSerial(Year(Format(Now, “dd/mm/yy”)), Month(Format(Now, “dd/mm/yy”)), 1)))))
If BULAN < 0 And HARI >= 0 Then
‘textumurtahun’= TAHUN – 1
‘textumurbulan’ = 12 + BULAN
‘textumurhari’= HARI
ElseIf BULAN < 0 And HARI <= 0 Then
‘textumurtahun’ = TAHUN – 1
‘textumurbulan’ = BULAN + 11
‘textumurhari’ = MAXIMALHARI + (HARI)
ElseIf BULAN = 0 And HARI < 0 Then
‘textumurtahun’ = TAHUN – 1
‘textumurbulan’ = BULAN + 11
‘textumurhari’ = MAXIMALHARI + (HARI)
ElseIf BULAN > 0 And HARI < 0 Then
‘textumurtahun’ = TAHUN
‘textumurbulan’ = BULAN – 1
‘textumurhari’ = MAXIMALHARI + HARI
Else
‘textumurtahun’ = TAHUN
‘textumurbulan’ = BULAN
‘textumurhari’ = HARI
End If
usiatahunold =’ textumurtahun’