追觅H60 Ultra洗地机评测:以「四极寰宇净地系统」重构家庭清洁标准
2025-09-05
procedure TForm1.ADOTableCalcFields(DataSet: TDataSet);
var
YY1,YY2,MM,DD:Word;
TmpDate:TDate;
begin
DecodeDate(Date,YY1,MM,DD);
TmpDate:=DataSet.FieldByName(´Birth´).AsDateTime;
DecodeDate(TmpDate,YY2,MM,DD);
DataSet.FieldByName(´Age´).AsString:=IntToStr(YY1-YY2)+´岁´;
//在OnCalField中显示出年龄
end;
以上是我用ADO写的。一开始我用BDE写的,也一样都可以通过.
评论 {{userinfo.comments}}
{{child.content}}
{{question.question}}
提交