String a Time

[Jose Roman]

Hola a todos,

Resulta que tengo en una variable STRING la siguiente hora:

01:00 pm

¿Como hago para convertir a esta variable y que quede 13:00 para una variable de tipo TTime???

Gracias

[TOPX]

Hola,

Código Delphi [-]
var
  Cadena: String;
  Tiempo: TTime;
begin
  Tiempo := StrToTime(Cadena);
end;

Esté atento a la variable ShortTimeFormat.
-

[orodriguezca]

Puedes modificar la variable publica ShortTimeFormat y/o la variable publica TimeFormat para ajustarla al formato que desees, pero esto puede traer efectos colaterales no deseados. Yo suelo utilizar para este tipo de situaciones la función FormatDateTime, por ejemplo:

Código Delphi [-]
var
  HoraString: String;
  
begin
  HoraString := FormatDateTime('HH:mm',  StrToTime(VariableQueTienelTiempo));
end;

Ten en cuenta que TTime como tal en realidad es un Real (o un double, no recuerdo) y no tiene formato.