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
<*> 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/
