dari kemarin juga saya coba membuka arsip dan melihat postingan saya tempo hari, ternyata sebenarnya masih keliru. sempet coba benahin di kantor, apa daya mata sudah gak kuat, akan saya coba kembali setelah kembali dari cibitung sore nanti, ya ..... sepintas idenya sudah sama seperti yang eddy kirim sekarang, cuma untuk ngetesnya belon sempet :)
Aksan Kurdin --- In [email protected], "Murid Belajar Access" <murid.belajaracc...@...> wrote: > > 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: murid.belajaracc...@... > 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 > afri...@... > > ________________________________________ > 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 >
