[Alegun]

Да ничего она и не подсчитывала, просто обрезала всё что после запятой, TDateTime это фактически типа Double, а функция Trunc возвращает только целочисленную часть числа.