bukannya 4 bulan 20 hari ya?
Function YearMonthDate(dtStartDate As Date, dtEndDate As Date) As String
Dim lYears As Long, lMonths As Long, lDays As Long, m As Long
lYears = Year(dtEndDate) - Year(dtStartDate)
If Month(dtStartDate) > Month(dtEndDate) Then
lYears = lYears - 1
End If
If Month(dtEndDate) < Month(dtStartDate) Then
lMonths = 12 - Month(dtStartDate) + Month(dtEndDate)
Else
lMonths = Month(dtEndDate) - Month(dtStartDate)
End If
If Day(dtEndDate) < Day(dtStartDate) Then
lMonths = lMonths - 1
If Month(dtEndDate) = Month(dtStartDate) Then
lYears = lYears - 1
lMonths = 11
End If
End If
lDays = Day(dtEndDate) - Day(dtStartDate)
If lDays < 0 Then
m = CInt(Month(dtEndDate)) - 1
If m = 0 Then m = 12
Select Case m
Case 1, 3, 5, 7, 8, 10, 12
lDays = 31 + lDays
Case 4, 6, 9, 11
lDays = 30 + lDays
Case 2
If (Year(dtEndDate) Mod 4 = 0 And Year(dtEndDate) _
Mod 100 <> 0) Or Year(dtEndDate) Mod 400 = 0 Then
lDays = 29 + lDays
Else
lDays = 28 + lDays
End If
End Select
End If
YearMonthDate = lYears & " Years " & lMonths & " Months " & lDays & " Days "
End Function
On 2/21/06, Joni Oktora <[EMAIL PROTECTED]> wrote:
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
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
SPONSORED LINKS
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
