海信家电”换帅 “ 高玉玲接替代慧忠出任新任董事长
2024-11-22
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}}
提交