Gracias por la repuesta , pero eso es básicamente lo que hago arriba ,
Código Delphi
[-]SQL.Text:= 'select * from ventas where Fecha like'+quotedstr('%'+frm_menu.label7.Caption+'%')+' ; '; ;
label7.Caption es la fecha
y lo que necesitaria seria al como
Código Delphi
[-] SQL.Text:= 'select * from ventas where Fecha between (dia actual desde las 12pm hasta dia siguiente a las 6am)
pero no lo he conseguido