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

← →
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]

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

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