中国移动副总经理高同庆:打造大国算网重器,开启AI+时代新篇
2024-04-28
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}}
提交