| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сравнить даты [D7]
Dmitry S © (2008-02-08 15:29:00)Есть два TDateTime - а. Необходимо уточнить, одинаковые ли у них даты.
Так будет верно:
var
A, B: TDateTime;
...
Result := Trunc(A)=Trunc(B);
??
Джо (2008-02-08 16:09:00) [1]> [3] Dmitry S © (08.02.08 15:47)
> Спасибо. Я просто смутно помню как хранятся дата и время
> в типе TDateTime :)
Когда смутно помнят, читают справку, освежая смутные воспоминания :)
engine (2008-02-08 15:51:00) [2]> [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.
engine (2008-02-08 15:49:00) [3]> [3] Dmitry S © (08.02.08 15:47)
TDateTime = Double
Dmitry S (2008-02-08 15:47:00) [4]Спасибо. Я просто смутно помню как хранятся дата и время в типе TDateTime :)
Джо (2008-02-08 15:41:00) [5]> [0] Dmitry S © (08.02.08 15:29)
> Есть два TDateTime - а. Необходимо уточнить, одинаковые
> ли у них даты.
> Так будет верно:
Так будет верно.
ketmar (2008-02-08 15:34:00) [6]а отчего нет?
---
Understanding is not required. Only obedience.
| |
