coba gunakan fungsi CDate()
If Date >= CDate("15/05/2007") Then
MsgBox "diatas tanggal 15 Mei 2007"
Else
MsgBox "Dibawah tanggal 15 Mei 2007"
End If
jangan lupa format tanggal di system dengan yang di tulis harus sama.
mudah2an membantu..
--- In [email protected], "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"
>
