Convertendo horas

Delphi

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

Walace

Curtidas 0

Respostas

Walace

Walace

07/07/2004

Valeu galera !

Resolvi com esta função:

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



GOSTEI 0
POSTAR