Bwat mas Yulianto dan rekan2 trimakasih atas
pencerahannya. Berkat coding yg diberikan permasahan
saya dapat diatasi.
Thank's
--- Yulianto <[EMAIL PROTECTED]> wrote:
> Dear Joni,
>
> Coba koding aku, semoga membantu
>
> Dim t1 As Date, t2 As Date, t3 As Date
> Dim Thn As Integer, Bln As Integer, Hr As Integer
> t1 = DateSerial("2005", "10", "01") : t2 =
> DateSerial("2006", "02", "21")
> Thn = DateDiff("YYYY", t1, t2)
> Bln = DateDiff("M", t1, t2)
> Hr = DateDiff("d", t1, t2)
> Bln = Bln - ((Thn) * 12)
> If Bln < 1 Then
> Thn = Thn - 1
> Bln = 12 + Bln
> End If
> t3 = DateAdd("M", (Thn * 12) + Bln, t1)
> Hr = DateDiff("d", t3, t2)
>
> MsgBox "Tgl Mulai : " & t1 & vbCrLf & "Tgl Akhir : "
> & t2 & vbCrLf & "Thn : " & Thn & vbCrLf & "Bln : " &
> Bln & vbCrLf & "Hari : " & Hr
>
>
> Regards,
> Yulianto
> KwetChiro
>
>
> 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
>
> Send instant messages to your online friends
> http://uk.messenger.yahoo.com
>
>
> Wahana Programmer Groups Links
>
>
>
>
>
>
>
> 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.
>
>
> ---------------------------------
>
>
>
>
>
> ---------------------------------
> Relax. Yahoo! Mail virus scanning helps detect nasty
viruses!
Send instant messages to your online friends http://uk.messenger.yahoo.com
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/
