Форматированная разница между двумя датами

← →
DVM © (2006-07-03 11:20) [0]

Нет ли у кого готовой функции выдающей разницу между двумя датами в виде строки: dd дней hh часов mm минут ss секунд ?

← →
REA (2006-07-03 11:25) [1]

Типа такого?

FormatDateTime("dd дней hh часов nn минут ss секунд", Date2-Date1)

← →
DVM © (2006-07-03 11:31) [2]

> Типа такого?

А так неправильно получается если FormatDateTime("dd дней hh часов nn минут ss секунд", Now - Now) выводит 30 дней разницу почему то.

← →
REA (2006-07-03 11:34) [3]

Желательно на вход подавать положительную разницу (Now-Now может быть и отрицательной). Вообще ограничение в 30 дней в этой функции имеется - придется либо месяцы показывать либо дни отдельно:

IntToStr(Trunc(DateDiff))+ FormatDateTime(" дней hh часов nn минут ss секунд", DateDiff)

Ясно, спасибо.

Форматированная разница между двумя датами Найти похожие ветки