Today: DateTime;
Метод Today возвращает текущую дату.
Sub UserProc;
Var
DT: DateTime;
s: String;
Begin
DT := DateTime.Today;
s := DT.ToString;
End Sub UserProc;
После выполнения примера в переменной «DT» будет содержаться текущая дата, а в переменной «s» будут содержаться текущая дата, преобразованная к строковому типу.
См. также: