Сравнение даты и времени

[Altera]

Привет всем!
Вот мне стало интересно:
Если я напишу

var
today, yesterday: tDateTime
begin
   if dateOf(yesterday) < dateOf(today) then
   showMessage('дата "yesterday" получена позже, чем "today"!');
end;

всегда ли это будит работать верно?
Аналогисно ли для времени?

[_SERGEYX_]

Не будет здесь время учитываться. Сам проверь

ShowMessage(FloatToStr(DateOf(Yesterday)));

Результат 39723, т.е. целое число, без дроби. Значит время не учитывается и работать будет правильно.

[Andrei]

В первом случае (с DateOf ) это утверждение верно, потому что сравниваются между собой целые части (дни) значений TDateTime (тип double).

Во втором случае (с TimeOf) между собой будут сравниваться только дробные части значений ТDateTime, представляющие время прошедшее от начала суток, без учета конкретной даты. То-есть утверждение

var
today, yesterday: tDateTime
begin
   if TimeOf(yesterday) < TimeOf(today) then
   showMessage('дата "yesterday" получена позже, чем "today"!');
end;

может быть не верно.