Jadilah Anggota smaneka untuk mendapatkan informasi terkini di smaneka.tk, yuk...

Rabu, 28 Oktober 2009

VB : Birthday Remainder / Pengingat Hari Ultah




Private Sub Command1_Click()
Dim a
Dim b
b = Year(Date)
Text3 = Format(Text1, "dd/mm/yyyy")
Text4 = Text3 & b
a = DateDiff("D", Date, Text4)
Text2 = a
If Val(Text2) < 0 Then
Label1 = "Belated Happy birthday"
Else
Label1 = "Your birthday comes after " & Text2 & " Days from Today"
End If
End Sub

Private Sub Form_Load()
Text3.MaxLength = 6
End Sub

Tidak ada komentar:

 
Minima 4 coloum Blogger Template by Beloon-Online.
Simplicity Edited by Ipiet's Template