[AIMor]

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

Код:

1 2 3 4 5 6

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, предлагаю такой код:

Код:

1 2 3 4 5 6 7 8 9 10

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 секунд