VBA/Excel/Access/Word/Date Functions/Date

Date returns a Variant/Date containing the current date according to your computer

 
Sub dateDemo1()
    Debug.Print Date
End Sub

VBA Date function and the Mod operator:

 
Sub dateDemo()
     MsgBox Date Mod 7
End Sub