Date ()

Функція Date: TDateTime;

Опис: Функція повертає поточну дату у форматі TDateTime.

Приклад

var

S: string;

begin

S: = DateToStr (Date);

MessageDlg ('Поточна дата:' + S, mtInformation,[mbOk], 0);

end;