Excel VisualBasic Script

Sub from()
     MsgBox [MOD(TODAY(),7)]
End Sub