Добавить дату в цикле

← →
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 - это всего лишь количество суток от некоей даты.
поэтому добавление дней - это "переменная_даты + переменная_дней"

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

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

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

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