Сравнение времени функции TDateTime

← →
ZV © (2010-11-23 20:32) [0]

Ситуация такая - происходит событие при котором записываются данные и к этим данным присваивается текущее время (Time) затем происходит следующие событие и вот тут должно происходить сравнение предыдущего времени записи данных с настоящим и если разница больше 20 секунд то записать новые данные. Так вот как сравнить два параметра Time ,чтобы определить прошло 20 сек или нет?
мне надо что то типа такого
событие А; begin ..............; ..............; ..............; clock[rq].intime:=Time; end; событие В; begin if (clock[rq].intime+20)<time then begin ...........; ...........; ...........; clock[rq].intime:=Time; end;

Поскажите пожалуйста как мне это сделать правильно

← →
Сергей М. © (2010-11-23 20:39) [1]

F1 -> SecondsBetween

← →
И. Павел © (2010-11-23 21:04) [2]

abs(time - clock[rq].intime) < 20/60/60/24

> clock[rq].intime:=Time;

ИМХО тут лучше использовать не Time а Date, чтобы не было глюка в полночь. Хотя, конечно, можно и просто отдельно обрабатывать ситуацию, когда clock[rq].intime > Time.

Сравнение времени функции TDateTime Найти похожие ветки