acerca de la hora en delphi??

[kalibur16]

Hola, mi nombre es geovana y estoy haciendo una pequeña base de datos en delphi.

El problema es el sig, tengo una hoja de excel con datos los cuales los grabo con la extencion dbf para poder manejarlo como una tabla paradox, en mi database, los datos que manejo en la tabla son (localidad, hora, nivel del mar y fecha), estos datos a su vez los insertare en una db.

Ahora el codigo que tengo es el sig

procedure TFormCaptMarXLS.BitBtn1Click(Sender: TObject);
var
Tiempo : Tdatetime;
begin
Table1.Open;
Table2.Open;
While Not Table1.EoF Do
Begin
Table2.Last;
Table2.Insert;
Table2.fieldByName('Localidad').AsString := Table1.FieldByName ('Localidad').AsString;
Table2.fieldByName('Fecha').AsDateTime := Table1.FieldByName('Fecha').AsDateTime;
Table2.fieldByName('Hora').AsDateTime := StrToTime(Table1.FieldByName('Hora').AsString+'m.');
Tiempo := StrToTime('10:10:00 a.m.');
Table2.fieldByName('Nivel_Mar').AsInteger := Table1.FieldByName('Nivel_Mar').AsInteger;
Table2.Post;
Table1.Next;
end;
Table2.Close;
Table1.Close;

end;

el error que me esta marcando es que la hora sale que no es valida, y no se inserta en la tabla, que puede ser? o como puedo manejar la hora para poder insertarla en la tabla sin problema, los demas datos si los inserta pero la hora no.

En la forma tengo dos componentes Ttable, uno para conectar la tabla a la cual quiero que se inserte los datos y la otra la conecto al archivo.dbf la cual tiene los datos que quiero insertar.

que podra ser??? Espero y me puedan ayudar con esto!!!

Saludos !!! desde Ensenada

[marto]

Hola,

En primer lugar, aconsejarte que utilices la etiqueta CODE (entre []) para poner codigo tabulado, ya que así es complicado seguirlo.
Sobre tu duda, veo que asignas como hora el resultado de StrToTime, funcion que no conozco, pero que supongo que te convierte a un TDateTime una string representando solo la parte de la hora. El problema imagino que tiene que ver con el formato en que le pasas la cadena. Mirate las variables golbales de formato de fecha en el help. Si antes de hacer la asignación lo cambias al formato que necesitas, no habrá problema.

[marcoszorrilla]

 Table2.fieldByName('Hora').AsDateTime := StrToTime(Table1.FieldByName('Hora').AsString+'m.');
Tiempo := StrToTime('10:10:00 a.m.');


StrToTime(Table1.FieldByName('Hora').AsString+'a.m.');

Un Saludo.