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寫的，也一樣都可以通過.