Membuat Fitur Pengingat Update Metode tanggal,Bulan Dan Tahun

Pada Kesempatan Kali Ini Saya Akan Membagikan Tips Cara Membuat Fitur Pengingat Update Dengan Metode Tanggal,Bulan Dan Tahun

-Pertama Buatlah Sebuah Form Kemudian Tambahkan 1 Command Button Dan Beri Nama Command1

-Kemudian Masukkan Kode Dibawah Ini :

Private Sub Command1_Click()
 Dim tanggal, bulan, tahun
    tanggal = Format(Now, "dd")
    bulan = Format(Now, "mm")
    tahun = Format(Now, "yyyy")
    If tanggal >= 19 And bulan >= 11 And tahun >= 2012 Or bulan >= 9 And tahun >= 2013 Or tahun > 2014 Then
    ShellExecute Me.hWnd, vbNullString, "http://www.Websiteanda.com", vbNullString, "C:\", 1
    Else
    MsgBox "No New Update", vbCritical
    End If
End Sub


Code Fungsi Yang Berwarna Merah Adalah Code Fungsi Untuk Mengingatkan Update Pada Tanggal 19 Bulan 11 Tahun 2012 Dan Hari Seterusnya Lalu Jika Button Itu Diklik Maka Program Tersebut Akan Membuka Situs www.websiteanda.com ,Mudahkan Cara Membuatnya??

Untuk Lebih Lengkapnya
Ini Aku Bagi Source Codenya
DOWNLOAD