Ada banyak cara yang digunakan untuk menghitung umur ini.
Di milis ini bang Erwin Sugiawan dan bang Aksan sudah pernah mempostingnya.
Bisa juga gunakan function di bawah ini untuk alternatifnya.
'Contohnya
'
'?fWaktu(date()-450,date,0)
'1 tahun 2 bulan 24 hari
'?fWaktu(date()-200,date,0)
'6 bulan 17 hari
'?fWaktu(date()-20,date,0)
'20 hari
Function fWaktu(ByVal tgl1 As Date, ByVal tgl2 As Date, Optional blnPendek
As Boolean = True) As String
'format pendek adalah Tahun:Bulan:Hari contoh: 35:4:5
'format panjang adalah xx tahun yy bulan zz hari
'
jBulan = DateDiff("m", tgl1, tgl2)
If DateAdd("m", jBulan, tgl1) > tgl2 Then jBulan = jBulan - 1
jTahun = jBulan \ 12
jSisaBulan = jBulan Mod 12
tgl3 = DateAdd("m", jBulan, tgl1)
jHari = DateDiff("d", tgl3, tgl2)
fWaktu = jTahun & ":" & jSisaBulan & ":" & jHari
If Not blnPendek Then
fWaktu = IIf(jTahun > 0, jTahun & " tahun ", "") &
IIf(jSisaBulan > 0, jSisaBulan & " bulan ", "") & IIf(jHari > 0, jHari & "
hari ", "")
End If
End Function
Salam hangat dan jabat erat,
MBA
________________________________________
From: [email protected] [mailto:[email protected]]
On Behalf Of Afrizal
Sent: Tuesday, October 27, 2009 16:51
To: [email protected]
Cc: [email protected]
Subject: [belajar-access] (TANYA) cara mencari umur
To Mas edi (MBA) n All
saya ada masalah untuk otomatis umur di form
tlg dibantu ya
misal :
tgl_skrg tgl_lhr saya ingin hasilnya
27/10/2009 12/09/1982 27 thn 1 blh 15 hr
27/10/2009 17/09/2009 1 bln 10 hr
27/10/2009 17/10/2009 10 hr
atas bantuannya saya ucapkan terima kasih
regard
Afrizal
[email protected]
________________________________________
Get your new Email address!
Grab the Email name you've always wanted before someone else does!
No virus found in this outgoing message.
Checked by AVG - www.avg.com
Version: 9.0.698 / Virus Database: 270.14.34/2463 - Release Date: 10/27/09
22:50:00
