Rellenar con 0 a la izquierda

[compuin]

Hola foro

Estoy usando este format para colocar una expresion en HH,MM y SS

Necesito que me exprese 21H 04M 03S, en lugar de 21H 4M 3S

Es decir, a los numeros menores a 10, que les agregue el 0 a la izquierda

Este es mi format

Código Delphi [-]
format('%dh %d'' %d"',[d, trunc(m), trunc(s)]);

Gracias de antemano

[lucho6007]

Hola! Lo podés resolver con Format('%.2d:%.2d', [Hora, Minutos]), suponiendo que Hora y Minutos sean valores Integer.


Saludos,
Lucho6007

[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;

[lucho6007]

Empezado por compuin

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('%2dh %2d'' %2d"',[d, trunc(m), trunc(s)]); end;

Probá con ese código

[compuin]

Estimado Lucho,

Esta solucion funciona

Muchas gracias

[[escafandra]]

Empezado por compuin

Estimado Lucho,

Esta solucion funciona

Muchas gracias

No. No creo que funcione de esa manera. Para especificar la precisión hay que colocar el carácter "." y el "ancho".


Si estuviésemos usando la API wsprintf basta con poner el ancho con un cero delante o el carácter precisión. Con Format solo funciona con el carácter precisión y el ancho.


Tres ejemplos:

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('%.2dh %.2d'' %.2d"',[d, trunc(m), trunc(s)]);
end;

Código Delphi [-]
function wsprintf(lpOut, lpFmt: PAnsiChar): Integer; cdecl; varargs; external 'User32.dll' name 'wsprintfA';



function TimeToStr2(angle:extended):string;
var
  D: integer;
  M,S: Extended;
  Str: array [0..80] of AnsiChar;
begin
  d:=Trunc(angle);
  m:=abs(frac(angle)*60);
  s:=Round(abs(frac(m)*60));
  wsprintf(Str, '%02dh %02d'' %02d"', d, trunc(m), trunc(s));
  Result:= Str;
end;

Código Delphi [-]
function wsprintf(lpOut, lpFmt: PAnsiChar): Integer; cdecl; varargs; external 'User32.dll' name 'wsprintfA';



function TimeToStr3(angle:extended):string;
var
  D: integer;
  M,S: Extended;
  Str: array [0..80] of AnsiChar;
begin
  d:=Trunc(angle);
  m:=abs(frac(angle)*60);
  s:=Round(abs(frac(m)*60));
  wsprintf(Str, '%.2dh %.2d'' %.2d"', d, trunc(m), trunc(s));
  Result:= Str;
end;

Saludos.

[lucho6007]

escafandra, fue lo que le pasé en el primer comentario, que luego en mi respuesta me "comí" el punto (.).


Gracias por aclarar este tema

[compuin]

Empezado por lucho6007

escafandra, fue lo que le pasé en el primer comentario, que luego en mi respuesta me "comí" el punto (.).


Gracias por aclarar este tema

Muchas gracias escafandra por la aclaratoria