可以考虑增加一个计算字段
然后参考代码
procedure TBDS.FIELD_BZSJJ1_JSZD1CalcField(Field: TBizField; var Value: Variant);
begin
if not DataSetBZSJJ1.FieldByName('SQRQ').IsNull then
Value := SysUtils.FloatToStr(DataSetBZSJJ1.FieldByName('SQRQ').AsDateTime - Business.System.SysUtils.Date);
end;