昨夜今晨:摩尔线程、沐曦股份IPO已获受理 安克新增充电宝召回方案
2025-07-01
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}}
提交