Вопрос : ДЕЛФИ - DATEDIFF

Я имею перемеююый с 2 датами DATAINIZIO - DATAFINE
There будет функцией включенной в Делфи для того чтобы высчитать разницу между 2 датами, я нужно получить результат в днях, месяцах, летах, часах и секундах?

I хотел было бы пример. thanks class=

Ответ : ДЕЛФИ - DATEDIFF

Дата 0 в Делфи фактическ 1899-12-30, поэтому вы получаете странный результат.
Используйте эту функцию вместо, которая возвратит 7 компонентов diff даты.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19:

процедура DiffDates (dFrom, dTo: TDateTime; var y, m, d, h, n, s, госпожа: Слово); начните DecodeTime (dFrom-dTo, h, n, s, госпожа); y: = 0; m: = 0; d: = 0; пока dTo IncMonth (dFrom, 12*y < dTo="" do="" Inc=""> ) после этого Декабрь (y); dFrom: = IncMonth (dFrom, 12*y); пока dTo IncMonth (dFrom, m < dTo="" do="" Inc=""> ) после этого Декабрь (m); dFrom: = IncMonth (dFrom, m); пока dFrom + dTo < dTo="" do="" Inc=""> d после этого Декабрь (d); конец;