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

made in programmersforum 1

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

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

10th
Дек

Вычислить разницу между датами

Posted by Chas under Delphi

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

Баламут
Ну вот, навскидку



var

  Day, Month, Year: Word;

  Dat: TDate;

begin

  Day := 31;

  Month := 12;

  Year := 2008;

  Dat :=  EncodeDate(Year, Month, Day);

  Edit1.Text := FloatToStr(Dat - Now);

end;

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