v\:* {behavior:url(#default#VML);}o\:* {behavior:url(#default#VML);}w\:*
{behavior:url(#default#VML);}..shape {behavior:url(#default#VML);}
Kalau saya sihubah format tanggal menjadi 20070515….jadi ntar tinggal di
val aja
Dim iTgl
Itgl=right(date,4) & mid(date,4,2) & keft(date,2)
If val(itgl)>= 20070515 then
MsgBox "diatastanggal 15 Mei 2007"
Else
MsgBox "Dibawah tanggal 15 Mei 2007"
End If
---------------------------------
From: [EMAIL PROTECTED]:[EMAIL PROTECTED] OnBehalf Of Frangky
Sent: Saturday, May 10, 2008 09:06
To: [email protected]
Subject: [Programmer-VB] Tanyatentang 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 tanggal20 Mei 2002,lalu saya
jalankan program muncul MsgBox "diatas tanggal 15Mei 2007". Harusnya msgbox
yang muncul adalah: MsgBox "Dibawahtanggal 15 Mei 2007". Begitupun kalau saya
ubah tanggal di komputermenjadi Tanggal 10 Mei 2008, Muncul msgbox "Dibawah
tanggal 15 Mei2007". Harusnya muncul msgbox "diatas tanggal 15 Mei 2007"
---------------------------------
Ahhh...imagining that irresistible "new car" smell?
Check outnew cars at Yahoo! Autos.
