Tipo de Campo para Hora en SQL Server

[ContraVeneno]

Prueba asi:

Código Delphi [-]
Parameters.ParamByName('Hor_FechaHora').Value := StrToDateTime('2008-02-18 15:35:00');

[[BlueSteel]]

Ok...

voy a probar que me arroja.. aunque no se como agregar las comilla simple antes y despues del concat...

Código Delphi [-]
Datos.AQ_Edit.Parameters[4].Value := Concat(Concat(Copy(DTexto.FieldByName('Fecha').asString,7,2),'/',Copy(DTexto.FieldByName('Fecha').asString,5,2),'/',Copy(DTexto.FieldByName('Fecha').asString,1,4)),' ',Concat(Copy(DTexto.FieldByName('Hora').asString,1,2),':',Copy(DTexto.FieldByName('Hora').asString,  3,2),':00'));

[ContraVeneno]

Cuando vi la parte de: DTexto.FieldByName('Fecha').asString y que mencionas que lo traes de un archivo, recordé que te había recomendado utilizar el TJVCSVDataset para leer tu archivo, entonces, lo que hay que hacer sería mas o menos:

Código Delphi [-]
...
var Year, mes, Dia, Hora, Minuto: Word;
     Fecha, Time: TDateTime;
...
  Year := strtoint(Copy(DTexto.FieldByName('Fecha').asString,1,4));
  Mes := strtoint(Copy(DTexto.FieldByName('Fecha').asString,5,2));
  Dia := strtoint(Copy(DTexto.FieldByName('Fecha').asString,7,2));
  Hora := strtoint(Copy(DTexto.FieldByName('Hora').AsString,1,2));
  Minuto := strtoint(Copy(DTexto.FieldByName('Hora').AsString,3,2));

   Fecha := encodedate(year, mes, dia);
   Time := encodetime(Hora, Minuto, 0, 0);
   ReplaceTime(Fecha, Time);

   Parameters.ParamByName('Hor_FechaHora').Value := Fecha;

Eso estoy 100% seguro que te va a funcionar y ya vas a tener la fecha y la hora en un solo campo. Al final solo requerirías utilizar la función DATEPART de SQL Server para consultar ya sea la fecha o la hora. Y también podrías utilizar la función CONVERT de SQL Server para darle formato.


Eso seguro te funciona, de cualquier manera, déjame ver si se me ocurre otra cosa.

[[BlueSteel]]

Hola...

gracias.. por tu ayuda... te queria preguntar ya que tengo dudas en ...

que se supone que hace esto

Código Delphi [-]
 
ReplaceTime(Fecha, Time);

reemplaza la hora del sistema.. o de esas variables ???

despues cuando hago esto

Código Delphi [-]
 
Parameters.ParamByName('Hor_FechaHora').Value := Fecha;

me tomará la fecha y hora o solo la fecha ???

se podra hacer esto

Código Delphi [-]
 
Parameters.ParamByName('Hor_Fecha').Value := Fecha;
Parameters.ParamByName('Hor_Hora').Value := Time;

[ContraVeneno]

Empezado por BlueSteel

Hola...

gracias.. por tu ayuda... te queria preguntar ya que tengo dudas en ...

que se supone que hace esto

Código Delphi [-]
ReplaceTime(Fecha, Time);

reemplaza la hora del sistema.. o de esas variables ???

Reemplaza la hora de la variable Fecha solamente.

Empezado por BlueSteel

despues cuando hago esto:

Código Delphi [-]
Parameters.ParamByName('Hor_FechaHora').Value := Fecha;

me tomará la fecha y hora o solo la fecha ???

Te va a guardar la fecha y la hora.

Empezado por BlueSteel

se podra hacer esto

Código Delphi [-]
Parameters.ParamByName('Hor_Fecha').Value := Fecha;
Parameters.ParamByName('Hor_Hora').Value := Time;

Pues sí, se podría, pero no tiene caso guardarlas por separado. Y la variable Time tiene el valor '1899-01-01 HH:MM:00', Siendo HH el valor de la variable Hora y MM el valor de la variable minuto.

Pero como te han recomendado desde el inicio de este hilo, no tiene caso tener un campo para la fecha y otro campo para la hora, cuando puedes tener los dos en un solo campo.

Código SQL [-]
Select convert(char(10), Hor_FechaHora, 103) as Fecha, convert(char(8), Hor_FechaHora, 108) as Hora
From...

[[BlueSteel]]

Ok..

Me quedo claro por el momento...

luego vere como realizo el proceso que necesito...

Salu2