Cita:
Ya realice los cambio, pero no medan resultada si ejecuto la consulta con interbalos de fecha no me haces nada no tira ningun mensaje ni datos tampoco, si la ejecuto en Blanco me tira este error
|
Cita:
"//" is not a valid invalin date date and time
|
Cita:
Pero es que en EditMask no se encuentra el tipo de formato dataime y el que tengo es el date y le es relizado varios cambios pero no e tenido ningun resultados y es que en access el unico formato de facha es Fecha/Hora. Y tambie cambie los paramtros al tipo ftdatetime y realice uno cambios de coddigo verificalo por fovor
|
Código Delphi
[-]
var FConsuEquiFech: TFConsuEquiFech;implementationuses login;{$R *.dfm}procedure TFConsuEquiFech.SpeedButton4Click(Sender: TObject);beginClose ();end;procedure TFConsuEquiFech.DesdeExit(Sender: TObject);VarA,B: Tdate;beginA:= strtodatetime(Desde.text);B:= strtodatetime(Hasta.text);if A > B thenBegin Showmessage('La Fecha inicial no Puede ser Mayor que la Final'); desde.clear; Activecontrol:= desde; End;end;procedure TFConsuEquiFech.HastaExit(Sender: TObject);VarA,B: Tdate;beginA:= strtodatetime(Desde.text);B:= strtodatetime(Hasta.text);if B < A thenBegin Showmessage('La Fecha Final no Puede ser Menor que la Inicial'); Hasta.clear; Activecontrol:= Hasta; End;end;procedure TFConsuEquiFech.FormShow(Sender: TObject);begindesde.Clear;hasta.Text := datetimetostr(now);Desde.Text := datetimetostr(now);end;procedure TFConsuEquiFech.SpeedButton1Click(Sender: TObject);beginWith ConexionDB do begin QEquiposporFech.active :=false; QEquiposporFech.ParamByName('fecha1').Asdatetime:=strtodatetime(desde.text); QEquiposporFech.ParamByName('fecha2').Asdatetime:=strtodatetime(hasta.text);QEquiposporFech.active :=true; // QEquiposporFech := Desde; //QEquiposporFech := Hasta;end ;end;end
y no se con resolver este problema
_______________
yensis