Форум: "Начинающим";
Текущий архив: 2006.12.24;
Скачать: [xml.tar.bz2];
Вниз
Добавить дату в цикле Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.12.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.059 c
