Получить все даты между Дата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]

← →
Mitrofan (2002-12-02 18:13) [6]

Все, работает, Всем большое спасибо !!!

Получить все даты между Дата1 и Дата2 Найти похожие ветки