[Михалыч]

Есть два компонента TDateTimePicker и 1 Label, нужно по нажатию кнопки от одной даты вычесть другую и записать в Label разницу: дней, месяцев, лет.
Пробовал использовать функции Between, но выдает допустим:
1095 (дней), 36(мес), 3(года), а нужно в нормальном виде, столько то лет, месяцев, дней. Может есть у кого исходник, я нигде не нашел!

[dr. F.I.N.]

По-моему тут все просто:
1. Между заданными датами ищем количество лет:
function YearsBetween(const ANow, AThen: TDateTime): Integer;
2. Увеличиваем меньшую дату на это количество лет:
function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer = 1): TDateTime;
3. Между получившимися датами ищем количество месяцев:
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
4. Увеличиваем меньшую дату на количество месяцев:
function IncMonth(const DateTime: TDateTime; NumberOfMonths: Integer = 1): TDateTime;
5. Ищем сколько дней между получившимися датами:
function DaysBetween(const ANow, AThen: TDateTime): Integer;

Функции в пунктах 1,2,3,5 в модуле DateUtils, функция из п.4 в модуле SysUtils.