Private Function NamaHari()
Dim BilHari As Integer
BilHari = Weekday(Date)
Select Case BilHari
Case 1NamaHari = “MINGGU”
Case 2NamaHari = “SENIN”
Case 3NamaHari = “SELASA”
Case 4NamaHari = “RABU”
Case 5NamaHari = “KAMIS”
Case 6NamaHari = “JUMAT”
Case 7NamaHari = “SABTU”
End Select
End Function
Sunday, January 3, 2010
Subscribe to:
Post Comments (Atom)
Daftar Isi Blog Anda adalah pengunjung ke : |
0 comments:
Post a Comment