Сравнить даты

← →
Dmitry S © (2008-02-08 15:29) [0]

Есть два TDateTime - а. Необходимо уточнить, одинаковые ли у них даты.
Так будет верно:
var A, B: TDateTime; ... Result := Trunc(A)=Trunc(B);
??

← →
ketmar © (2008-02-08 15:34) [1]

а отчего нет?

---
Understanding is not required. Only obedience.

← →
Джо © (2008-02-08 15:41) [2]

> [0] Dmitry S © (08.02.08 15:29)
> Есть два TDateTime - а. Необходимо уточнить, одинаковые
> ли у них даты.
> Так будет верно:

Так будет верно.

← →
Dmitry S © (2008-02-08 15:47) [3]

Спасибо. Я просто смутно помню как хранятся дата и время в типе TDateTime :)

← →
engine © (2008-02-08 15:49) [4]

> [3] Dmitry S © (08.02.08 15:47)

TDateTime = Double

> [4] engine © (08.02.08 15:49)

А, не то. Вот то что нужно:
The integral part of a Delphi TDateTime value is the number of days that have passed since 12/30/1899. The fractional part of the TDateTime value is fraction of a 24 hour day that has elapsed.

> [3] Dmitry S © (08.02.08 15:47)
> Спасибо. Я просто смутно помню как хранятся дата и время
> в типе TDateTime :)

Когда смутно помнят, читают справку, освежая смутные воспоминания :)

Сравнить даты Найти похожие ветки