Anda membandingkan dua type data yang berbeda date dan
string
jadi yang terbaca 20>=15 nilai true,10>=15 nilai false
solusinya convert string menjadi date
> If Date >= cdate("15/05/2007") Then
> MsgBox "diatas tanggal 15 Mei 2007"
> Else
> MsgBox "Dibawah tanggal 15 Mei 2007"
> End If
semoga bisa membantu
--- 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"
____________________________________________________________________________________
Bored stiff? Loosen up...
Download and play hundreds of games for free on Yahoo! Games.
http://games.yahoo.com/games/front
