Скачать: CL | DM;

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

← →
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

---

← →
engine ©   (2008-02-08 15:51) [5]

> [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.

---

← →
Джо ©   (2008-02-08 16:09) [6]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c