Rango de fechas

[chino150]

Hola!!!

Le pido excusa pero ahora el tiempo de ejecucion me sale el siquiente mensaje Type Mismatch in expression como soluciono este porblema



Gracias!!!

[[egostar]]

Empezado por chino150

Hola!!!

Le pido excusa pero ahora el tiempo de ejecucion me sale el siquiente mensaje Type Mismatch in expression como soluciono este porblema

Gracias!!!

Seguro que este código no te muestra un error al compilarlo?

Código Delphi [-]
procedure TfrmTest.BtnAdmClick(Sender: TObject);
begin
   qrFondos.close;
   qrFondos.SQL.clear;
   if (CutBox.checked=false) then begin
       qrFondos.sql.add('select * from Ofrendas');
       qrFondos.sql.add('where fecha between '+#39+DatetoStr(Cutfecha1.date)+#39+' and '+#39+DatetoStr(Cutfecha2.date)+#39);
       Case CutStatus.ItemIndex of
           0:qrFondos.sql.add('and Tipo_Recibo ='+#39+'I'+#39);
           1:qrFondos.sql.add('and Tipo_Recibo ='+#39+'R'+#39);
       end;
       qrFondos.open;
       QrAdm.cutfecha3.Caption := DatetoStr(cutfecha1.date);
       QrAdm.cutfecha4.Caption := DateToStr(CutFecha2.Date);
   end;
   if (CutBox.checked=true) then begin
       qrFondos.sql.add('select * from Ofrendas');
       Case CutStatus.ItemIndex of
          0:qrFondos.sql.add('where Tipo_Recibo ='+#39+'I'+#39);
          1:qrFondos.sql.add('where Tipo_Recibo ='+#39+'R'+#39);
       end;
       qrFondos.open;
       QrAdm.cutfecha3.Caption := DatetoStr(cutfecha1.date);
       QrAdm.cutfecha4.Caption := DatetoStr(cutfecha2.date);
   end;
//**********************************************
   begin //??????
       QrAdm.preview; 
   end;  //??????
//**********************************************
end;

Salud OS

[chino150]

No Amigo


El error sale en tiempo de ejecucion

[[egostar]]

Empezado por chino150

No Amigo


El error sale en tiempo de ejecucion

Muy bien, entonces el problema es el formato de fecha que estas usando en tu base de datos, para resolver esto deberias usar la funcion ShortDateFormat() ajustandolo a como lo requieres.

Código Delphi [-]
 
ShortDateFormat := 'dd/mm/yyyy';

Salud OS

[chino150]

como lo ago me puedo mustar el codigo completo

[[egostar]]

Empezado por chino150

como lo ago me puedo mustar el codigo completo

Solo coloca el código que te mostré en tu procedimiento, por ejemplo:

Código Delphi [-]
 
procedure TfrmTest.BtnAdmClick(Sender: TObject);
begin
   ShortDateFormat := 'dd/mm/yyyy'; 
   //................
   //...............
end;

el formato depende como lo requiera tu base de datos, asi que podía asignarse cualquier valor

'dd/mm/yyyy'
'mm/dd/yyyy'
'dd.mm.yyyy'

Salud OS

[chino150]

no commpila muestra este error Undeclared Indentifier ShortDateString


Código Delphi [-]
procedure TfrmTest.BtnAdmClick(Sender: TObject);
begin
ShortDateString := ('dd/mm/yyyy');
qrFondos.close;
qrFondos.SQL.clear;
if (CutBox.checked=false) then begin
qrFondos.sql.add('select * from Ofrendas');
qrFondos.sql.add('where fecha between '+#39+DatetoStr(Cutfecha1.date)+#39+' and '+#39+DatetoStr(Cutfecha2.date)+#39);
Case CutStatus.ItemIndex of
0:qrFondos.sql.add('and Tipo_Recibo ='+#39+'I'+#39);
1:qrFondos.sql.add('and Tipo_Recibo ='+#39+'R'+#39);
end;
qrFondos.open;
QrAdm.cutfecha3.Caption := DatetoStr(cutfecha1.date);
QrAdm.cutfecha4.Caption := DateToStr(CutFecha2.Date);
end;
if (CutBox.checked=true) then begin
qrFondos.sql.add('select * from Ofrendas');
Case CutStatus.ItemIndex of
0:qrFondos.sql.add('where Tipo_Recibo ='+#39+'I'+#39);
1:qrFondos.sql.add('where Tipo_Recibo ='+#39+'R'+#39);
end;
qrFondos.open;
QrAdm.cutfecha3.Caption := DatetoStr(cutfecha1.date);
QrAdm.cutfecha4.Caption := DatetoStr(cutfecha2.date);
end;
begin
QrAdm.preview;
end;
end;