Date Functions VisualBasic Script

Sub dateDemo()
     MsgBox Date Mod 7
End Sub