L
lwdelphibbs
Unregistered / Unconfirmed
GUEST, unregistred user!
我想在报表打印中显示“欠费月数”字段,思路:欠费月数=(停机日期-当前日期)/30
取整。例如10/30取1而不是零。“停机日期”表中有。代码如下:
procedure Tdatam.tb_jbCalcFields(DataSet: TDataSet);//欠费月数字段设为计算字段
var days:integer;
currday:Tdate;
begin
currday:=Date;
days:=tb_jb.fieldbyname('停机日期').Value-currday;
tb_jb.FieldByName('欠费月数').asvariant:=(days div 30);
end;
取整。例如10/30取1而不是零。“停机日期”表中有。代码如下:
procedure Tdatam.tb_jbCalcFields(DataSet: TDataSet);//欠费月数字段设为计算字段
var days:integer;
currday:Tdate;
begin
currday:=Date;
days:=tb_jb.fieldbyname('停机日期').Value-currday;
tb_jb.FieldByName('欠费月数').asvariant:=(days div 30);
end;