Ver Mensaje Individual
  #3  
Antiguo 24-11-2022
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.757
Reputación: 21
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Para el tema horas puedes hacer lo siguiente:

Código Delphi [-]
procedure Filtra(Desde, Hasta: TDateTime);
begin
  // Quito la hora del la fecha inicial
  Desde := RecodeTime(Desde, 0, 0, 0, 0);
  // Agrego hasta el ultimo milisegundo del día a la hora final
  Hasta := RecodeTime(Hasta, 23, 59, 59, 999);

  ADOQuery1.SQL.Add('where FechaCre where Fecha between :fecha1 and :fecha2)');
  ADOQuery1.Parameters.ParamByName('fecha1').Value := Desde;
  ADOQuery1.Parameters.ParamByName('fecha2').Value := Hasta;
  [...]
Responder Con Cita