coba pake datediff("d",tgl2,tgl1)
----- Original Message -----
From: "Yulianto" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Thursday, January 19, 2006 1:13 AM
Subject: [Programmer-VB] Re: Menghitung hari
> Dear Joni,
>
> ini contoh codingnya, semoga membantu....
>
> Private Sub Command1_Click()
> Dim JlhHari As Integer
> Dim Thn As Integer
> Dim Bln As Integer
> Dim Tgl As Integer
> Dim Tgl1 As Date
> Dim Tgl2 As Date
>
> 'Ada 2 Cara;
>
> 'Cara Pertama, tp ini kurang akurat.
> ' JlhHari = DTPicker1.Value - DTPicker2.Value
> ' Thn = JlhHari \ 365
> ' JlhHari = JlhHari Mod 365
> ' Bln = JlhHari \ 31
> ' Tgl = JlhHari Mod 31
> '
> '
>
> 'Cara Ke-2:
> If DTPicker1.Value > DTPicker2.Value Then
> Tgl1 = DTPicker1.Value
> Tgl2 = DTPicker2.Value
> Else
> Tgl1 = DTPicker2.Value
> Tgl2 = DTPicker1.Value
> End If
>
> Tgl = Day(Tgl1) - Day(Tgl2)
> Bln = Month(Tgl1) - Month(Tgl2)
> If Tgl < 0 Then
> Tgl = 31 + Tgl 'Untuk lebih akurat, 31 bisa diganti dengan
> Tgl Akhir Bln pada bulan bersangkutan.
> Bln = Bln - 1
> End If
>
> Thn = Year(Tgl1) - Year(Tgl2)
> If Bln < 0 Then
> Bln = 12 + Bln
> Thn = Thn - 1
> End If
> End Sub
>
>
> Regards,
> Yulianto
> KwetChiro
>
>
>
> --- In [email protected], Joni Oktora <[EMAIL PROTECTED]>
> wrote:
>>
>> Bwat mas Yul, trima kasih atas pencerahannya dan tmn2
>> yang laen.
>> Tapi saya ada masalah lagi, seblom nya saya minta maaf
>> karna terlalu banyak pertanyaan. Soalnya uda saya cari
>> dimana2 an. Temen,liat catatan ampe nyari di empu
>> google gak ketemu2.
>> Masalah saya masih berhubungan dengan penanggalan,
>> yaitu :
>>
>> ex. prog
>> > ==========awal===============
>> > Private Sub Command1_Click()
>> > lab_hasil.Caption = tgl1 - tgl2
>> > End Sub
>> > ==========akhir==============
>>
>> misal hasil dari lab_hasil.caption = 397
>>
>> tapi saya pengen hasil yang diperoleh bukan berupa
>> angka seperti itu (397), tapi berupa penjabaran, yaitu
>> 1 tahun 1 bulan 2 hari.
>>
>> Bagi rekan2 yang bisa bantu, tolongin logic nya. kalo
>> perlu sekalian listing programnya.
>>
>> salam
>> 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/
