Delphi - Convertir número entero a años, meses y días

2355 / 365 = 6.452 años

0.452 * 12 = 5.424 meses

0.424 * 30 = 12.72 días

resultado aproximado 6 años, 5 meses, 12.72 días

Si quisieras aproximarlo al resultado real tendrías que hacer esto:

6 * 365 = 2190 días

5 * 30 = 150 días

2355 - 2190 - 150 = 15 días

resultado 6 años, 5 meses, 15 días.

function GET_AnosMesesDias(dias: integer): string;

var nAnos,nMeses,nDias: Integer;

begin

nAnos := (DataM.Table.FieldByName('NumDias').AsInteger / 365);

nMeses := ? // la parte decimal de lo anterior ;

nDias  := ?;

result := IntToStr(nAnos) + ' años, ' + IntToStr(nMeses) + ' meses y ' + IntToStr(nDias) + ' días';

end;

function GET_AnosMesesDias(dias: integer): string;

var nAnos,nMeses,nDias: real; //Tienes que usar variables tipo real, con punto decimal

   result: string;

begin

  nAnos := (DataM.Table.FieldByName('NumDias').AsInteger / 365);

  nMeses := (nAnos - trunc(nAnos)) * 12; // la parte decimal de lo anterior ;

  nDias  := (nMeses - trunc(nMeses)) * 30;

  result := IntToStr(trunc(nAnos)) + ' años, ' + FloatToStr(trunc(nMeses)) + ' meses y ' + FloatToStr(trunc(nDias)) + ' días';

  ShowMessage(result);

end;

function GET_AnosMesesDias(TotDias: Integer):string; // TotDias es el campo de la table

var rAnos,rMeses,rDias: real;

begin

  rAnos := (TotDias / 365);

  rMeses := (rAnos - Trunc(rAnos)) * 12;

  rDias := (TotDias - Trunc(rAnos) * 365) - (Trunc(rMeses) * 30); // La parte final de tu primera respuesta para ajustar más el resultado

  Result := FloatToStr(Trunc(rAnos)) + ' años, ' + FloatToStr(Trunc(rMeses)) + ' meses y ' + FloatToStr(Trunc(rDias)) + ' días';

end;