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