Hola
Me puedo equivocar, lo que ultimamente no seria de extrañar, pero bueno, que tal asi:
Código Delphi
[-]
IBdataset1.Close;
IBdataset1.modifySQL.CLEAR;
IBdataset1.modifySQL.Text:= 'update PRESUPUESTO set monto='+quotedstr(form2.sedit1.Text)+
'WHERE EMPRESA ='+QUOTEDSTR(EMPRESA)+
'AND PERIODO between :FECHA1 AND :FECHA2';
IBdataset1.ParamByName('FECHA1').asdatetime :=encodedate(calendar1.year, calendar1.month, 1);
IBdataset1.ParamByName('FECHA2').asdatetime :=encodedate(calendar1.Year, calendar1.Month,DaysInAMonth(calendar1.year, calendar1.month));
ibdataset1.ExecSQL;
Saludos