Rango de fechas

[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;

[[egostar]]

Perdon, no era ShortDateString, es ShortDateFormat....

Salud OS

[chino150]

ok complilo pero coundo se realiza la el reporte sale este error


EDBEngineErrror with message Type mismatch in expression

[zurdosoft]

Tuve un problema similar con una mdb.
El formato de la base era mm/dd/yyyy y el de delphi (o sistema) dd/mm/yyyy.
Lo solucioné, no se si del todo bien, cargando una variable string con los datos como los queria la base.


Código Delphi [-]
var Fecha:String;
d,m,a:word;
begin
DecodeDate(dtpFecha.Date,a,m,d);
Fecha:=IntToStr(m)+'/'+IntToStr(d)+'/'+IntToStr(a);
Sql.add('SELECT * FROM OrdenCliente WHERE FECHAESTIMADA<#'+Fecha+'# AND Estado Is Null');
end;





Puede que tenga problemas al cambiar de pc con otro formato en el sistema.

[[felipe88]]

Empezado por zurdosoft

Tuve un problema similar con una mdb.
El formato de la base era mm/dd/yyyy y el de delphi (o sistema) dd/mm/yyyy.
Lo solucioné, no se si del todo bien, cargando una variable string con los datos como los queria la base.


Código Delphi [-]
var Fecha:String;
d,m,a:word;
begin
DecodeDate(dtpFecha.Date,a,m,d);
Fecha:=IntToStr(m)+'/'+IntToStr(d)+'/'+IntToStr(a);
Sql.add('SELECT * FROM OrdenCliente WHERE FECHAESTIMADA<#'+Fecha+'# AND Estado Is Null');
end;





Puede que tenga problemas al cambiar de pc con otro formato en el sistema.

Con quien hablas..., estas preguntando o respondiendo...
Ya viste la fecha de este hilo... es de hace 2 meses