basic
Example:
Sub Main ()
Dim Today
Today =
Now
End Sub