coba di rubah format tanggal menjadi MM/DD/YYYY
If Format(Date, "MM/DD/YYYY") > Format("15 Mei 2007",
"MM/DD/YYYY") Then
MsgBox "DIATAS TANGGAL 20 MEI 2007"
Else
MsgBox "DIBAWAH TANGGAL 20 MEI 2007"
End If
--- Frangky <[EMAIL PROTECTED]> wrote:
> Pakar VB yang terhormat!
>
> Saya membuat kode seperti dibawah ini:
>
> If Date >= "15/05/2007" Then
> MsgBox "diatas tanggal 15 Mei 2007"
> Else
> MsgBox "Dibawah tanggal 15 Mei 2007"
> End If
>
>
> Yang mau saya tanyakan:
>
> Kenapa kalau saya ubah tanggal di komputer menjadi
> tanggal 20 Mei 2002,lalu saya jalankan program
> muncul MsgBox "diatas tanggal 15 Mei 2007". Harusnya
> msgbox yang muncul adalah: MsgBox "Dibawah tanggal
> 15 Mei 2007". Begitupun kalau saya ubah tanggal di
> komputer menjadi Tanggal 10 Mei 2008, Muncul msgbox
> "Dibawah tanggal 15 Mei 2007". Harusnya muncul
> msgbox "diatas tanggal 15 Mei 2007"
Send instant messages to your online friends http://uk.messenger.yahoo.com
