pak coba pake rumus yang saya pakai semoga membantu
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 Functionent
best regards
den aly
Joni Oktora
<[EMAIL PROTECTED] 宛先:
[email protected]
.com> cc:
送信者: 件名: [Programmer-VB] menghitung
hari
[EMAIL PROTECTED]
ogroups.com
02/21/2006 12:31
PM
Programmer-VB へ返
信してください
Bwat All Vber
Aku ada maalah dengan prog penghitung hari ku,dgn
coding sbt:
===============awal coding================
Dim tahun As Integer
Dim bulan As Integer
Dim hari, temp As Integer
Dim angka As Integer
angka = lab_jmlhari.Caption
' Untuk dapatkan tahun
tahun = angka / 365
temp = angka Mod 365
' Untuk dapatkan bulan
bulan = temp / 30
' Untuk dapatkan hari
hari = temp Mod 31
' Print tahun & " Tahun " & bulan & _
' " Bulan " & hari & " Hari"
lab_tahun.Caption = tahun
Lab_bulan.Caption = bulan
lab_hari.Caption = hari
=============akhir coding=========================
aku hitung jml hari dari tgl 01/10/2005 s/d 21/02/2006
adalah 143 hari. 143 hari yg seharusnya kalo dijabarin
menjadi 0 tahun, 4 bulan, 21 hari. Tp kanapa kok yg
aku dapetin 0 tahun, 5 bulan, 19 hri. Apa ada
kekeliruan pada logic. Buat rekan2 saya sangat
mengharapkan pencerahannya.
alam
Joni
Send instant messages to your online friends http://uk.messenger.yahoo.com
Wahana Programmer Groups Links
Yahoo! Groups Links
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
