Как получить сегодняшнюю дату в delphi?

1
2
3
4
5
6
7

var CurrentDate: TDate;
begin
	CurrentDate:= Naw;
	ShowMessage(DateToStr(CurrentDate)); 
	// или сразу ShowMessage(DateToStr(Now)); 
    //если не нужно получать дату в переменную
end;

1
2
3
4
5
6

var
  Today: TDateTime;
begin
  Today := Date; // сегодняшняя дата
  ShowMessage(DateToStr(Today)); // преобразование даты в строку и вывод на экран
end;

1
2
3
4
5
6

var
  Today: TDateTime;
begin
  Today := Now; // текущая дата и время
  ShowMessage(FormatDateTime('dd.mm.yyyy', Today)); // форматирование даты в формат "дд.мм.гггг" и вывод на экран
end;