Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

23rd
Дек

Как сделать прогу чтобы показывать сколько дней осталось до…

Posted by obzor under Delphi

Как сделать программу на Делфи чтобы показывать сколько дней осталось до Нового года или дня рожденья???

Баламут

Ну вот, навскидку…


var
  Day, Month, Year: Word;
  Dat: TDate;
begin
  Day := 31;
  Month := 12;
  Year := 2008;
  Dat :=  EncodeDate(Year, Month, Day);
  Edit1.Text := FormatDateTime('dd дней ',(dat-now)); 
end;

Andrei

Или так :

uses ..., DateUtils;

....

procedure TForm1.Button1Click(Sender: TObject);
begin
 Label1.Caption:=IntToStr(DaysBetween(Now,DateTimePicker1.DateTime));
end;

Функция DaysBetween из модуля DateUtils возвращает количество полных дней между двумя значениями TDateTime.

тема на форуме