Menampilkan Tanggal Lengkap Disertai Hari

Private Function DateFull(d As Date) As String
    DateFull = Format$(d, "dddd, dd/mm/yyyy")
End Function

Private Sub Command1_Click()
    MsgBox DateFull(#12/12/2012#)
End Sub