Seteo de horas

[shoulder]

Perdon sie s una pregunta un poco basica pero no lo puedo hacer. En los partes diarios quieren que la horas en vez de 11:00:00 se vea 23:00:00, no me sale solo puedo diferenciar con AM y PM, no encuentro el seteo.
Gracias.

[ecfisa]

Hola.

Un modo puede ser,

Código Delphi [-]
function AmPmTo24(const ampm: TTime): string;
var
  F: TFormatSettings;
begin
  F := FormatSettings;
  try
    with FormatSettings do // para XE3 o sup.
    begin
      LongTimeFormat  := 'hh:mm:ss';
      TimeSeparator   := ':';
      Result := TimeToStr(ampm);
    end;
  finally
    FormatSettings := F;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessageFmt('%s%s%s',[AmPmTo24(StrToTime('11:59:59 AM')), #10,
    AmPmTo24(StrToTime('11:59:59 PM'))]);
end;

Saludos

[shoulder]

Primero Gracias, pero uso delphi7 y me da error en el formatsetting.

[ecfisa]

Hola.

Empezado por shoulder

Primero Gracias, pero uso delphi7 y me da error en el formatsetting.

Es por eso que hice el comentario en la siguiente línea:

Empezado por ecfisa

Código Delphi [-]
    with FormatSettings do // para XE3 o sup.

Basta con que comentes la línea entera (agregando dos símbolos: //) al comienzo de la misma:

Código Delphi [-]
  // with FormatSettings do // para XE3 o sup.

para que funcione correctamente. Pero, si quisieras sacar el begin-end correspondientes al with, quedará mas prolijo.

Saludos

[shoulder]

Mil Gracias. Funciono perfecto.

[ecfisa]

Empezado por shoulder

Mil Gracias. Funciono perfecto.

Saludos