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

made in programmersforum 8

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

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

13th
Май

Как прибавить к дате целое число?

Posted by Chas under Топик-обзор

Мой вопрос заключается в следубщем: есть у меня DatePicker и 2 Edit’a, в DatePicker устанавливаем дату, в 1-й Edit вводим целое число (как бы число дней, на которое должна увеличится дата), в 2-м Edit’е хочу получить результат. Как сделать ето? есть мож стандартные функции для работы с датой? Ибо контролировать выход количества дней в месяце за его предел не реально как мне кажется.

bitSoft:

Uses DateUtils;
.......
Edit2.Text := DateTimeToStr(IncDay(DateTimePicker.Date,StrToInt(Edit1.Text)));
.....

evg_m:

dt:=Date;

nn:=8;

for j:=1 to nn do  begin

  dt:=dt+1; //IncDay(dt,1);

  decodeDate(dt, y, m, d);

  if (m=3) and (d=8) then dt:=dt+1;

  if (m=1) and (d=1) then dt:=dt+1;

  if (m=5) and (d=9) then dt:=dt+1;

// для проверок лучше будет организовать массив и процедуру(функцию)

// if specialday(m,d) then dt:=dt+1;

end;

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