Re: [Programmer-VB] dtPicker

Wed, 20 Apr 2005 02:08:58 -0700

Mungkin Maksudnya Mas Robin gini
 
Private Sub Command1_Click()
    MsgBox AkhirBln(1, 2005)
End Sub

Function AkhirBln(Bulan As Single, Tahun As Integer) As Date
    AkhirBln = DateSerial(Tahun, IIf(Bulan = 12, 1, Bulan + 1), 0)
End Function
 
Rgds, DP
----- Original Message -----
Sent: Wednesday, April 20, 2005 3:40 PM
Subject: Re: [Programmer-VB] dtPicker

Maaf mas, ini cara kerjanya gimana ya? soalnya saya dapetnya taun 1900 dan tanggalnya kurang 1 hari dari hari terakhir... mohon bimbingannya :D


Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]


Yahoo! Groups Links

Kirim email ke