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

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

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



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