If Now > CDate(Format("01-01-2010", "dd-mm-yyyy")) Then
MsgBox "Cari update di http://khoiriyyah.blogspot.com", vbInformation, "Check For Update"
End If
MsgBox "Cari update di http://khoiriyyah.blogspot.com", vbInformation, "Check For Update"
End If
Apabila kode tersebut diterjemahkan maka kalimatnya seperti di bawah ini:
Jika tanggal sekarang lebih dari (>) 01-01-2010 maka:
Tampilkan pesan "Check For Update"
Nah, apabila Anda masih membutuhkannya software tersebut dan tidak ingin diganggu oleh pesan "Check For Update" maka caranya mudah:
Rubahlah setting tanggalnya menjadi kurang dari 01-01-2010, misalnya 12-12-2009
Cara merubah setting tanggal:
Perhatikan sisi kanan bagian bawah disana terdapat waktu yang menunjukan saat ini, selanjutnya klik kanan kemudian klik Adjust Date/Time, rubahlah tanggalnya menjadi kurang dari 01-01-2010. Maka pesan "Check For Update" dengan sendirinya tidak akan ditampilkan lagi.
Jangan lupa setelah selesai menggunakan software Kamus Bahasa Arab v3.0 rubah kembali settingnya menjadi tanggal sekarang.
Mohon maaf kalau tampilan pesan "Check For Update" telah mengganggu, setidaknya tampilan tersebut hanya sebagai kenang-kenangan kalau Software Kamus Bahasa Arab v3.0 didownload dari http://khoiriyyah.blogspot.com..