Rellenar con 0 a la izquierda

[compuin]

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;