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

Guru Welly

Foto saya
NIP. 197812312010011028 / NUPTK 0563756657110173 / N.R.G 162241136461 / Nomor Peserta Sertifikasi Pendidik 16051822410077 / Kode Sertifikasi 224

Rabu, 28 Oktober 2009

VB : Birthday Remainder / Pengingat Hari Ultah

0 komentar




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

Baca Selengkapnya......

Kamis, 15 Oktober 2009

Manipulasi Objek di Corel Draw

0 komentar





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