manejo de horas en un turno

[jachguate]

No entiendo bien la semántica de tu consulta... pero a mi me parece que la consulta podría funcionar así:

Código SQL [-]
select * from turnos 
where  (inicio < termino and :lahora between inicio and termino)
  or ((inicio > termino) and ((:lahora >= inicio and :lahora <= '23:59:59') or (:lahora <= termino)))

La idea es esa...

Hasta luego.

[[egostar]]

Bueno, si, la apreciacion es correcta, tal vez si lo vemos en lenguaje común la consulta debería de ser algo así...

Se tienen dos horas y una solo fecha para obtener el reporte.

Fecha = 27/12/2007
HoraInicial = 23:00:01
HoraFinal = 06:00:00

La consulta debe de considerar la consulta de la fecha de un dia anterior a partir de las 23:00:01 y la fecha del dia actual hasta las 6 horas.

Código SQL [-]
 
SELECT * FROM TABLA
WHERE (FECHA = :FINI AND HORA >= :HINI) or (FECHA = :FFIN AND HORA <= :HFIN)

Pasamos los parámetros

Código Delphi [-]
  Query1.ParamByName('FINI').Value := Fecha-1; //Asumo que Fecha es un TDateTime
  Query1.ParamByName('HINI').Value := '23:00:01';
  Query1.ParamByName('FFIN').Value := Fecha;
  Query1.ParamByName('HFIN').Value := '06:00:00';
  Query1.Open;

Dejanos saber los avances de este asunto

Salud OS

[[Lepe]]

Si puedes, te aconsejo que el campo en la base de datos sea de formato Fecha y hora (todo en un mismo campo). La razón es bien sencilla, la hora depende de la fecha, sobre todo para realizar cálculos.

Es normal que te pidan las horas trabajadas en la semana de un trabajador, al tener la fecha y hora por separado, no puedes realizar sumas y restas.

Al tiempo de consultar, pones 2 TdateTimePicker, uno para la fecha y otro para la hora. Al realizar la consulta, concatenas el valor de dichos TdateTimes

Código Delphi [-]
var TheIni, TheEnd :TDateTime;
begin 
   TheIni := RecodeDate(TheIni, datetimepicker1.date);
   TheIni := REcodeTime(TheIni, datetimepicker2.time);

   TheEnd := RecodeDate(TheEnd, datetimepicker3.date);
   TheEnd := REcodeTime(TheEnd, datetimepicker4.time);

    query1.sql.text:= 'select * from turnos where fechaIni >= :ini and FechaFin <= :Fin';
   query1.parambyname('ini').Value := Theini;
   query1.parambyname('Fin').Value := TheEnd;
   query1.Open;

Saludos