Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Вниз
Как организовать цикл с датой Найти похожие ветки
← →
s_pantera (2004-04-19 14:27) [0]Здравствуйте. Как можно организовать такой цикл:
Есть начальная дата и конечная
Нужно выполнить цикл от StartDate to EndDate с шагом в один день. Как это реализовать. Если можна пример кода. Заранее благодарен.
← →
s_pantera (2004-04-19 14:27) [0]Здравствуйте. Как можно организовать такой цикл:
Есть начальная дата и конечная
Нужно выполнить цикл от StartDate to EndDate с шагом в один день. Как это реализовать. Если можна пример кода. Заранее благодарен.
← →
[lamer]Barmaglot © (2004-04-19 14:33) [1]Стыдно батенько не знать такого...
procedure TForm1.Button1Click(Sender: TObject);
var
DT: TDateTime;
k: integer;
begin
DT:=Now;
For k:=1 to 5 do
begin
DT:=DT+1;
ListBox1.items.Add(DateTimetoStr(DT));
end;
end;
← →
[lamer]Barmaglot © (2004-04-19 14:33) [1]Стыдно батенько не знать такого...
procedure TForm1.Button1Click(Sender: TObject);
var
DT: TDateTime;
k: integer;
begin
DT:=Now;
For k:=1 to 5 do
begin
DT:=DT+1;
ListBox1.items.Add(DateTimetoStr(DT));
end;
end;
← →
VAleksey © (2004-04-19 14:36) [2]
Var
d1,
d2:TDate;
i:Integer;
begin
d1:=StrToDate("01.01.2004");
d2:=StrToDate("31.01.2004");
for i := Integer(Round(d1)) to Integer(Round(d2)) do
begin
ShowMessage(DateToStr(I));
end;
end;
← →
VAleksey © (2004-04-19 14:36) [2]
Var
d1,
d2:TDate;
i:Integer;
begin
d1:=StrToDate("01.01.2004");
d2:=StrToDate("31.01.2004");
for i := Integer(Round(d1)) to Integer(Round(d2)) do
begin
ShowMessage(DateToStr(I));
end;
end;
← →
s_pantera (2004-04-19 14:37) [3]Да, немного стыдновато. Оказалось просто.
Большое вам спасибо.
← →
s_pantera (2004-04-19 14:37) [3]Да, немного стыдновато. Оказалось просто.
Большое вам спасибо.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.043 c
