kalau mau melakukan komparasi tipe tanggal, bawa ke komparasi string dengan
memanfaatkan fungsi format.
Urutan perbandingan yang tepat seharusnya adalah bandingin tahun dulu, baru
bulan, baru tanggal, jadi format yang kira2 memenuhi adalah format
"yyyymmdd", kalau mau pake "yyyy/mm/dd" juga boleh.
If format(Date,"yyyymmdd" >= "20070515" Then
MsgBox "diatas tanggal 15 Mei 2007"
Else
MsgBox "Dibawah tanggal 15 Mei 2007"
End If
Aksan Kurdin
On 3/6/08, Antonius Pungkas <[EMAIL PROTECTED]> wrote:
>
> coba ganti dengan date.now()
>
> ----- Original Message ----
> From: Frangky <[EMAIL PROTECTED]>
> To: [email protected]
> Sent: Saturday, May 10, 2008 9:05:57 AM
> Subject: [Programmer-VB] Tanya tentang Tanggal
>
> 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"
>
>
>
>
> ------------------------------
> Looking for last minute shopping deals? Find them fast with Yahoo!
> Search.<http://us.rd.yahoo.com/evt=51734/*http://tools.search.yahoo.com/newsearch/category.php?category=shopping>
>
>
>
--
Aksan Kurdin
