Buscar por:

Função que devolve tempo decorrido em uma string

Código

Function NumDiasExtenso(NumDias:integer):string; 

var 

Anos, Meses, Dias : integer; 

sAnos, sMeses, sDias : string; 

begin 

{ --- Calcula o número de anos --- } 

Anos := 0; 

while NumDias >= 365 do 

begin 

Anos := Anos + 1; 

NumDias := NumDias - 365; 

end; 

if Anos > 1 then 

sAnos := ' anos,' 

else 

sAnos := ' ano,'; 

{ --- Calcula o número de meses --- } 

Meses := 0; 

while NumDias >= 30 do 

begin 

Meses := Meses + 1; 

NumDias := NumDias - 30; 

end; 

if Meses > 1 then 

sMeses := ' meses e ' 

else 

sAnos := ' mês e '; 

{ --- O Número de dias é a sobra --- } 

Dias := NumDias; 

if sDias > 1 then 

sDias := 'dias' 

else 

sDias := 'dia'; 

Return := Inttostr(Anos)+sAnos+inttostr(Meses)+sMeses+inttostr(Dias)+sDias; 

end;