DateTime.Today

Syntax

Today: DateTime;

The Today method returns the current date.

Sub UserProc;
Var
    DT: DateTime;
    s: String;
Begin
    DT := DateTime.Today;
    s := DT.ToString;
End Sub UserProc;

After executing the example the "DT" variable contains the current date, and the "s" variable contains the current date converted to a string.