[lmikle]

Ну, это как посмотреть.
Тип TDateTime есть тип с фиксированной точкой, где в целой части хранится кол-во дней с некоторой опорной даты. Т.е. "убив" дробную часть мы получаем "чистую" дату.