No comprendo eso de controlar un rango o dos rangos
la comparación que buscas es:
Código Delphi
[-]
if dtm.ADOTControl_fechas.FieldbyName('FECHA1').asDate >= defecha.date then
Por aqui tengo una rutina que tambien puede servirte:
Código Delphi
[-]
uses dateutils;
function DateTimeInMonth(TheDate:TDateTime; InMonthAndYear:TDateTime):Boolean ;
implementation
function DateTimeInMonth(TheDate:TDateTime; InMonthAndYear:TDateTime):Boolean ;
var iniMes, finMes:TDateTime;
begin
iniMes := RecodeDateTime(InMonthAndYear,
RecodeLeaveFieldAsIs,
RecodeLeaveFieldAsIs,
1,
0,0,0,0);
finMes := RecodeDateTime(InMonthAndYear,
RecodeLeaveFieldAsIs,
RecodeLeaveFieldAsIs,
DaysInMonth(InMonthAndYear),
23,59,59,999);
Result := (TheDate >= iniMes) and (TheDate <= finMes);
end;
bye bye