[AIMor]

Суть задачи следующая - нужно узнать сколько прошло времени с последней контрольной точки выполнения программы.
То есть

Код:

Var
   T      : TDateTime;
   T_Past : TDateTime;


T:=Now-T_Past

Подскажите, как теперь перевести значение переменной Т в секунды (переменную типа Integer).

[Aristarh Dark]

Используй GetTickCount.

[NT_AUTHORITY]

Нет, GetTickCount это не то.

The GetTickCount function retrieves the number of milliseconds that have elapsed since Windows was started.

Нужно подключить юниту DateTimeUtils и использовать функцию MinutesBetween.

[AllMaNi]

Вот это подойдет?

[Yurk@]

NT_AUTHORITY, MinutesBetween тут не прокатит, т.к. она возвращает целую разницу минут ... а нужно секунды !

AIMor, предлагаю такой код:

Код:

uses DateUtils;
...
var
d1,d2:TDateTime;
d:double;
begin
d1 := EncodeDateTime(2009, 08, 10, 21, 06, 0, 1); // первая дата
d2 := EncodeDateTime(2009, 08, 10, 21, 06, 07, 0); // вторая дата
d:=DaySpan(d1,d2); считаем дробную разницу в днях
ShowMessage(FloatToStr(d*86400));// умножаем на кол-во секунд в дне

Результат: 6,99 секунд