Coba cek variabel datenya, contohnya ini, Hasilnya bener koq
Private Sub Form_Load()
Dim tanggal As Date
tanggal = Now
If tanggal >= "15/05/2007" Then
MsgBox "diatas tanggal 15 Mei 2007"
Else
MsgBox "Dibawah tanggal 15 Mei 2007"
End If
End Sub
Frangky wrote: Pakar VB yang terhormat!
Saya membuat kode seperti dibawahini:
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 dikomputer menjadi tanggal 20 Mei 2002,lalu
saya jalankan program munculMsgBox "diatas tanggal 15 Mei 2007". Harusnya
msgbox yang munculadalah: MsgBox "Dibawah tanggal 15 Mei 2007". Begitupun kalau
saya ubahtanggal di komputer menjadi Tanggal 10 Mei 2008, Muncul msgbox
"Dibawahtanggal 15 Mei 2007". Harusnya muncul msgbox "diatas tanggal 15 Mei2007"
---------------------------------
Kunjungi halaman depan Yahoo! Indonesia yang baru!
