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

Как вычислить промежуток времени имея начальное время ?   Найти похожие ветки 

← →
KaLLeKa   (2004-07-25 17:19) [0]

Такая задача :

Label1.Caption = "21.09.2003";
Label2.Caption = "20.03.2004";

Как можно подсчитать промежуток времени (в годах, месяцах и днеях) между первой и второй датами ?

---

← →
Кириешки ©   (2004-07-25 17:36) [1]

EncodeDate(Year, Month, Day: Word): TDateTime;
а дальше уже просто

---

← →
KaLLeKa   (2004-07-25 17:38) [2]

>Кириешки ©   (25.07.04 17:36) [1]

Ну "EncodeDate", а дальше чё ?
Подсчитать то как ?

---

← →
kaif ©   (2004-07-25 17:43) [3]

Сначала нужно это превратить в тип TDateTime, например так:

var
date1, date2: TDateTime;
begin
 try
   date1 := Label1.Caption;
   date2 := Label2.Caption;
 except
   raise Exception.Create("Неверная дата в капшонах лейблов!")
 end;
end;

 А затем использовать функции из модуля DateUtils.
 Там есть функции, позволяющие вычислять все, что угодно,
 даже  разницу в годах между
 29 февраля високосного года и 28 февраля невисокосного.

---

← →
kaif ©   (2004-07-25 17:45) [4]

Вообще-то лучше вместо EncodeDate использовать DecodeDate :).
Но сначала все равно придется string  в TDateTime превратить.
Единственное, чего я не пойму, как это в "Потрепаться" попало.

---

← →
KaLLeKa   (2004-07-25 17:46) [5]

>kaif ©   (25.07.04 17:43) [3]

Спасибо!!!!!

---

← →
KaLLeKa   (2004-07-25 17:47) [6]

>kaif ©   (25.07.04 17:45) [4]

"Единственное, чего я не пойму, как это в "Потрепаться" попало."

Тута народу больше!

---

← →
Mim1 ©   (2004-07-25 18:30) [7]

Народ это что заговор?
Вы как строку к дате ([3]) приводите?
Странно, [5] поблагодарил кайфа, пожет синтаксис паскаля изменился?

---

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

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



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