Форум: "Основная";
Текущий архив: 2002.12.12;
Скачать: [xml.tar.bz2];
ВнизПолучить все даты между Дата1 и Дата2 Найти похожие ветки
← →
Mitrofan (2002-12-02 17:51) [0]Есть две даты
Дата1 = 1 января 2002 и
Дата2 = 27 апреля 2002, нужно получить список всех дат лежащих между ними (между Дата1 и Дата2).
Как это сделать попроще.
Пробовал
while Дата1 <> Дата2 do begin
Дата1:=Дата1+1
end
Не получается, циклится. Помогите, плиззз.
← →
Юрий Федоров (2002-12-02 17:55) [1]var i : integer;
for i:=Round(Дата1) + 1 to Round(Дата2) - 1 do
очередная дата:=Дата1 + i
← →
Marcus (2002-12-02 17:56) [2]А временнЫе части сравнял? А так до второго пришествия циклиться будет... Или хотя бы while (Trunc(Data1) < Trunc(Data2))
← →
MBo (2002-12-02 17:57) [3]>Юрий Федоров
в такой формулировке просто
очередная дата:= i ;
>Mitrofan
<> замени на <
← →
Anatoly Podgoretsky (2002-12-02 18:08) [4]Только <= а то последняя может выпасть
← →
Юрий Федоров (2002-12-02 18:10) [5]MBo © (02.12.02 17:57)
Меня глюкануло :)
← →
Mitrofan (2002-12-02 18:13) [6]Все, работает, Всем большое спасибо !!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.12;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c