VBA/Excel/Access/Word/Date Functions/Date
Date returns a Variant/Date containing the current date according to your computer
<source lang="vb">
Sub dateDemo1()
Debug.Print Date
End Sub
</source>
VBA Date function and the Mod operator:
<source lang="vb">
Sub dateDemo()
MsgBox Date Mod 7
End Sub
</source>