| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Получить все даты между Дата1 и Дата2
Mitrofan © (2002-12-02 17:51:00)Есть две даты
Дата1 = 1 января 2002 и
Дата2 = 27 апреля 2002, нужно получить список всех дат лежащих между ними (между Дата1 и Дата2).
Как это сделать попроще.
Пробовал
while Дата1 <> Дата2 do begin
Дата1:=Дата1+1
end
Не получается, циклится. Помогите, плиззз.
Mitrofan (2002-12-02 18:13:00) [1]Все, работает, Всем большое спасибо !!!
Юрий Федоров (2002-12-02 18:10:00) [2]MBo © (02.12.02 17:57)
Меня глюкануло :)
Anatoly Podgoretsky (2002-12-02 18:08:00) [3]Только <= а то последняя может выпасть
MBo (2002-12-02 17:57:00) [4]>Юрий Федоров
в такой формулировке просто
очередная дата:= i ;
>Mitrofan
<> замени на <
Marcus (2002-12-02 17:56:00) [5]А временнЫе части сравнял? А так до второго пришествия циклиться будет... Или хотя бы while (Trunc(Data1) < Trunc(Data2))
Юрий Федоров (2002-12-02 17:55:00) [6]var i : integer;
for i:=Round(Дата1) + 1 to Round(Дата2) - 1 do
очередная дата:=Дата1 + i
| |
