Thursday, June 14, 2012

Dua Cara Memperoleh Nama Hari Dari Tanggal Tertentu

Cara Pertama
Private Function GetDayName(d As Date) As String
GetDayName = WeekdayName(Weekday(d, vbMonday))
End Function
Cara Kedua
Private Function GetDayName(d As Date) As String
GetDayName = Format$(d, "dddd")
End Function
Contoh penggunaan
Private Sub Command1_Click()
MsgBox GetDayName(#6/14/2012#)
End Sub