TDateTime: как определить что между двумя датами прошло 24 ч

[Halogen]

Подскажите как правильно посчитать
Дата 1
Дата 2

Дата 1 - некое значение
Дата 2 - настоящее время

как определить что между ними прошло 24 ч

не когда с ним не работал что то туплю

[type_Oleg]

См. описание типа TDateTime

type TDateTime = type Double;

Это число дней, прошедшее с 12:00 30.12.1899

var dat1,dat2:TDateTime;
     ProsloBolee24h:Boolean;
begin
 ProsloBolee24h:=(dat2-dat1)>1;

[Halogen]

что то мне всегда true возврощает
и это не совсем то как я понял , сменится значение когда дата измениться , а мне нужно когда 24 часа пройдет

[Человек_Борща]

Модуль DateUtils, функция HoursBetween.

[Аватар]

и это не совсем то как я понял

Все правильно, (dat2-dat1)>1 когда разница между датами больше суток или 24 часов. HoursBetween аналогичный результат даст. Если в датах время нулевое, то естественно 25/02/2013 - 24/02/2013 даст единицу. Но если не нулевое, то 25/02/2013 10:00:00 - 24/02/2013 22:00:00 = 0.5

[alextrof94]

Тоже хотел написать, что формат TDate (TTime, TDateTime) - обычное Extended число (десятичное), где за 1-цу по умолчанию принят день. Т.е. Now()-1= сутки назад, Now()-14= 2 недели назад.
Now() - функция, возвращающая текущие дату и время.
UPD: тут я нес чушь про различия TDateTime, TTime и TDate. Но сообщение ниже заставило меня проверить это дело (до чего у меня руки ранее не доходили, ибо было лень). Между этими тремя типами нет никакой разницы, хотя зря, ведь в формат TDate можно вместить больше дней, если бы он считал только их, а формат TTime сделать более точным (увеличение ни к чему, так как в сутках в любом случае всего 24 часа).

[ReportCube]

Посмотрите в System и увидите, что
TDate = type TDateTime;
TTime = type TDateTime;

[Halogen]

Спасибо всем , теперь понял как это работает