Fórum TEMPO DE SERVIÇO CALCULOS #442202

ESTOU TENTANDO FAZER O PROGRAMINHA DE CONTAGEM DE TEMPO DE SERVIÇO COM OS SEGUINTES CODIGOS ABAIXO:

EditTotal.Text := IntToStr(DaysBetween(StrToDate(EditDataLicenca.text),StrToDate(EditDataInclusao.Text)));


com essa configuração acima, qdo eu diminuo a data de licença pela data de inclusao, só me dá a quantidade de dias, eu gostaria que saisse no EditTotal assim:

Ex: total de 01 ANOS 02 MESES E 02 DIAS (o numeral e por extenso).

e cada ano deve valer 365 dias, não existe ano bissexto.

alguem pode me ajudar?