[Yensis22]

[quote][/Ya realice los cambio, pero no medan resultada si ejecuto la consulta con interbalos de fecha no haces nada no tira ningun mensaje ni datos tampoco, si la ejecuto en planco me tira este error QUOTE]

"//" is not a valid invalin date date and time

Pero es que en EditMask no esta el tipo de formato dataime y el que tengo es e date y le es relizado varios cambios pero no es tenido resultados y es que en access el unico formato de facha es Fecha/Hora. tambie cambie los paramtros al tipo ftdatetime y relice uno cambios en el coddigo ch

Código Delphi [-]
var
  FConsuEquiFech: TFConsuEquiFech;

implementation

uses login;

{$R *.dfm}

procedure TFConsuEquiFech.SpeedButton4Click(Sender: TObject);
begin
Close ();
end;


procedure TFConsuEquiFech.DesdeExit(Sender: TObject);
Var
A,B: Tdate;
begin
A:= strtodatetime(Desde.text);
B:= strtodatetime(Hasta.text);
if A > B then
 Begin
   Showmessage('La Fecha inicial no Puede ser Mayor que la Final');
   desde.clear;
   Activecontrol:= desde;
 End;
end;

procedure TFConsuEquiFech.HastaExit(Sender: TObject);
Var
A,B: Tdate;
begin
A:= strtodatetime(Desde.text);
B:= strtodatetime(Hasta.text);
if B < A then
 Begin
   Showmessage('La Fecha Final no Puede ser Menor que la Inicial');
   Hasta.clear;
   Activecontrol:= Hasta;
 End;
end;

procedure TFConsuEquiFech.FormShow(Sender: TObject);
begin
desde.Clear;
hasta.Text := datetimetostr(now);
Desde.Text := datetimetostr(now);
end;




procedure TFConsuEquiFech.SpeedButton1Click(Sender: TObject);
begin
With ConexionDB do begin
        QEquiposporFech.active :=false;
        QEquiposporFech.ParamByName('fecha1').Asdatetime:=strtodatetime(desde.text);
        QEquiposporFech.ParamByName('fecha2').Asdatetime:=strtodatetime(hasta.text);
        QEquiposporFech.active :=true;
       // QEquiposporFech.Dataset := QEquiposporFech;
      // QEquiposporFech := Desde;
       //QEquiposporFech := Hasta;

end ;
end;

end