Convertendo horas

07/07/2004

Mais uma d�vida, ou melhor.. tonguisse da minha parte por n�o saber resolver mesmo. Mas td bem... estou iniciando em Delphi.

Estou convertendo uma base de dados para outra, na antiga tenho um campo onde foram digitadas horas, mas este � string e estou movendo o mesmo para minha tabela que tem um campo hora (access).

At� a�, fiz o seguinte:

if (Pos(�:�,antGuia_Horario.AsString) = 3) and
(Length(antGuia_Horario.AsString) = 5) then
newsepultamento_hora.Value := StrtoTime(antGuia_Horario.AsDateTime
else
newsepultamento_hora.Value := StrtoTime(�12:00�);

Est� funcionando, mas l� pelo registro 2000 e alguma coisa tem uma droga de uma hora digitada 13:OO, note que al inv�s de digitar dois zeros no final foram digitados O�s.

Tem uma maneira mais f�cil, tipo uma fun��o que convertesse e se desse erro eu pudesse tratar e zerar o campo.

Valeu mais uma vez.

Walace

Curtir t�pico + 0

Responder

Posts

07/07/2004

Walace

Valeu galera !

Resolvi com esta fun��o:

function StrIsTime(const S: string): boolean;
begin
  try
    strtotime(S);
    result := true;
  except
    result := false;
  end;
end;

Responder

Gostei + 0