Cita:
Empezado por lucho6007
Hola! Lo podés resolver con Format('%.2d:%.2d', [Hora, Minutos]), suponiendo que Hora y Minutos sean valores Integer.
Saludos,
Lucho6007
|
Hola Lucho
Esta es la funcion que la calcula
Código Delphi
[-]function TimeToStr(angle:extended):string;
var
d : integer;
m, s : extended;
begin
d:= Trunc(angle);
m:= abs(frac(angle)*60);
s:= Round(abs(frac(m)*60));
Result:= format('%dh %d'' %d"',[d, trunc(m), trunc(s)]);
end;