Foros Club Delphi - Seteo de horas

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Seteo de horas (https://www.clubdelphi.com/foros/showthread.php?t=94443)

shoulder

12-02-2020 18:33:57

Seteo de horas

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

12-02-2020 20:34:00

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

12-02-2020 21:50:17

Hora Setting

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

ecfisa

13-02-2020 03:48:17

Hola.

Cita:

Empezado por shoulder (Mensaje 535689)

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

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

Cita:

Empezado por ecfisa (Mensaje 535688)

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

13-02-2020 15:40:55

Seteo Horas

Mil Gracias. Funciono perfecto.

ecfisa

13-02-2020 17:40:45

Cita:

Empezado por shoulder (Mensaje 535698)

Mil Gracias. Funciono perfecto.

^\||/

Saludos :)

La franja horaria es GMT +2. Ahora son las 13:23:40.