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

Даты   Найти похожие ветки 

← →
ABCMan   (2003-09-30 22:12) [0]

Есть две даты (в caption"е 2 label"ов) (напр 15.02.2003 и 15.03.2003) Нужно вывести ВСЕ даты этого промежутка (например в компонент ListBox, но не столь важно)
Напр.
15.02.2003
16.02.2003
17.02.2003
...
13.03.2003
14.03.2003
15.03.2003

Хелпуйте ПЛЗ!!!

---

← →
Palladin ©   (2003-09-30 22:22) [1]

var
d1,d2:tdatetime;
days:array of tdatetime;
i:integer;

d1:=encodedate(2003,2,15);
d2:=encodedate(2003,3,15);
setlength(days,trunc(d2)-trunc(d1)-1);
for i:=trunc(d1)+1 to trunc(d2)-1 do days[i-trunc(d1)-1]:=d1+i;

---

← →
ABCMan   (2003-10-02 16:20) [2]

Хм...
А как этот список дат вывести в ListBox??

---

← →
Anatoly Podgoretsky ©   (2003-10-02 16:23) [3]

N := D2 - D1 + 1
Ну а циклы навероно умеешь делать, или нет?

---

← →
ABCMan   (2003-10-02 16:29) [4]

нет:(

---

← →
ZEE ©   (2003-10-02 16:33) [5]

uses DateUtils;
...
var d1,d2:TDateTime;
...
ListBox1.Clear;
while d1<d2 do
begin
IncDay(d1);
ListBox1.Items.Add(DateToStr(d1));
end;

---

← →
ABCMan   (2003-10-02 16:40) [6]

to ZEE
Виснет прога!

---

← →
ZEE ©   (2003-10-02 16:43) [7]

в d1 и d2 заносишь даты?

---

← →
ZEE ©   (2003-10-02 16:54) [8]

виноват, исправлюсь:
uses DateUtils;
...
var d1,d2:TDateTime;
...
ListBox1.Clear;
while d1<d2 do
begin
d1:=IncDay(d1);
ListBox1.Items.Add(DateToStr(d1));
end;

---

← →
Anatoly Podgoretsky ©   (2003-10-02 16:54) [9]

ABCMan (02.10.03 16:29) [4]
Тогда с этого, а не с операций с датами и надо начинать, основы языка и когда будешь готов работать с циклами, тогда и сделаешь. А то придется долго, долго рассказывать тебе про Паскаль, про операторы, функции, процедуры, типы и многое другое

---

← →
ABCMan   (2003-10-02 18:20) [10]

Большое спасибо Palladin и ZEE!!!

---

← →
ABCMan   (2003-10-02 22:58) [11]

Получается что
d1:=encodedate(2003,2,15);
d2:=encodedate(2003,3,15);
Переменные типа Word; как передать им дугие значения (другие даты)?

---

← →
Johnmen ©   (2003-10-02 23:24) [12]

Прогуливаешь информатику ?
Если нет, то программирование не для тебя...:(

---

← →
ABCMan   (2003-10-03 00:18) [13]

А нельзя ли просто сказать чем можно передать переменную ворд а не развадить терады что для каго а что не для кого!

---

← →
Anatoly Podgoretsky ©   (2003-10-03 00:36) [14]

Ну какой настойчивый

---

← →
Johnmen ©   (2003-10-03 01:03) [15]

>ABCMan

:-))))))))))))) Черномырдин :)

>Anatoly Podgoretsky ©

Видимо, все-таки "придется долго, долго рассказывать тебе про Паскаль, про операторы, функции, процедуры, типы и многое другое"
=o)

---

← →
ZEE ©   (2003-10-03 10:36) [16]

>ABCMan (02.10.03 22:58) [11]
>Получается что
>d1:=encodedate(2003,2,15);
>d2:=encodedate(2003,3,15);
>Переменные типа Word;
>как передать им дугие значения (другие даты)?
другие даты? всмысле другие числа подставить не можешь?
var d1:TDateTime;
y,m,d:Word;
i:integer;
...
y:=2000;
m:=1;
d:=1;
for i:=0 to 100 do
begin
y:=y+i*10;
m:=m+1;
if m>12 then m:=1;
d:=d+i;
d1:=encodedate(y,m,d);
end;
тренируйся...

---

Страницы: 1 вся ветка

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



Память: 0.48 MB
Время: 0.015 c