Скачать: CL | DM;

Добавить дату в цикле   Найти похожие ветки 

← →
Winter ©   (2006-12-05 13:48) [0]

Подскажите, пожалуйста, как в цикле прибавить дату. В Дельфи нет такой встроенной функции, неужели писать программный код руками?
Нашла в справке procedure AddMonths(ANumber: Cardinal);
но компилятор не распознает ее к сожалению. Хотелось бы сделать красиво :)
Пример того, что нужно сделать:
while d1<=d2 do begin
 AddMonths(...);
   ShowMessage(DateToStr(D1));
 end;

---

← →
Winter ©   (2006-12-05 13:50) [1]

Ошиблась, конечно, AddDays(...)

---

← →
Sam Stone ©   (2006-12-05 13:54) [2]

Uses DateUtils;
IncDay();
IncMonth();
IncYear();
и тд, и тп.

---

← →
Desdechado ©   (2006-12-05 13:55) [3]

> прибавить дату
это как можно к 1 апреля прибавить 9 сентября?

> компилятор не распознает ее к сожалению
uses тот модуль, который прописан в справке по функции

ЗЫ TDateTime - это всего лишь количество суток от некоей даты.
поэтому добавление дней - это "переменная_даты + переменная_дней"

---

← →
Winter ©   (2006-12-05 14:00) [4]

Day1:=IncDay(Day1,1);
Спасибо большое, это как раз то, что надо :)

---

← →
Anatoly Podgoretsky ©   (2006-12-05 14:03) [5]

> Winter  (05.12.2006 13:48:00)  [0]

Цикл не нужен if D1 <= D2 then D1 := D2 + 1

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.049 c