function CalcPeriod(D1, D2: TDateTime; Detail: Integer; IsAge: Boolean): String  

Вычисляет стаж или возраст. Результат функции - строка вида: 7 лет 9 месяцев 21 день. Если какое-то значение равно 0, то оно не входит в результат.

Порядок дат в параметрах значения не имеет. В первом параметре может быть как начальная, так и конечная дата.

При расчетах предполагается, что в месяце 30 дней.

Стаж больше возраста на 1 день.

Параметры:

• D1 - начальная дата.
• D2 - конечная дата.
• Detail - формат вывода: 1 - только год, 2 - год и месяц, 3 - год, месяц, день.
• IsAge - True. если вычисляется возраст. False, если вычисляется стаж.