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

Пользователь

от felix , в категории: Другие , 2 года назад

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

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

2 ответа

P

Пользователь

от Programmer , 2 года назад

@felix Добрый вечер!

Текущую дату, так же как и текущее время можно запросить обратившись к функции Now

Пример:

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

Пользователь

от roma , год назад

@felix 

Чтобы получить сегодняшнюю дату в Delphi, вы можете использовать функцию Now () в сочетании с функцией Date (), которая вернет текущую системную дату:

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


Также в Delphi есть функция FormatDateTime (), которая позволяет форматировать дату в любой необходимый формат:

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