Coba pake function berikut ini...
Public Function umur1(masuk As Date, Skrg As Date)
Dim mthn1, mbln1, mtgl1 As Integer
Dim mthn2, mbln2, mtgl2 As Integer
Dim nm1, nm2 As Integer
Dim tahun, bln, hari As Integer
mthn1 = Year(masuk)
mbln1 = Month(masuk)
mtgl1 = Day(masuk)
mthn2 = Year(Skrg)
mbln2 = Month(Skrg)
mtgl2 = Day(Skrg)
nm1 = DateDiff("m", masuk, Skrg)
hari = mtgl2 - mtgl1
If nm1 > 0 Then
If mtgl2 < mtgl1 Then
nm1 = nm1 - 1
hari = Day(DateSerial(Year(masuk), Month(masuk) + 1, 0)) - mtgl1 +
mtgl2
End If
tahun = nm1 \ 12
If nm1 Mod 12 <> 12 Then
bln = nm1 Mod 12
Else
bln = 0
End If
End If
umur1 = Format(tahun, "00") & " Years " & Format(bln, "00") & " Months "
& Format(hari, "00") & " Days"
End Function
Salam
Ali Akbar R
Hendy Tjondro
<[EMAIL PROTECTED] To:
[email protected]
oo.com> cc:
Sent by: Subject: [Programmer-VB] Cara
menghitung umur
[EMAIL PROTECTED]
ogroups.com
11/16/2006 07:41
PM
Please respond to
Programmer-VB
Dear All,,,
Bagaimana cara menghitung umur yang output nya sbg berikut :
1 tahun 1 bulan 1 hari.
contohnya : Tgl Sekarang : 17 November 2006
Input ===> Tgl Lahir : 16 Oktober 2005 ( txt_tgl_lahir)
Output ===> Umur : 1 Tahun 1 bulan 1hari (txt_umur)
waktu itu sudah pernah di jawab sama bapak Mawardi tetapi output nya tidak
seperti yang di atas..
thank's All..
God Bless All....
Sponsored Link
Degrees for working adults in as fast as 1 year. Bachelors, Masters,
Associates. Top schools
