Re: [Programmer-VB] menghitung hari

Tue, 21 Feb 2006 10:09:35 -0800

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

Relax. Yahoo! Mail virus scanning helps detect nasty viruses!

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



Kirim email ke