计算年龄

Question

给出一个人的出生日期 如何计算他的年龄

Answer 1

直接把  出生日期 与 当前日期的年提出来 后想减就行了！
  var
    s, ss ,sss ,
    a, aa, aaa : word;
    nianling:integer;
    birthday: TDatetime;
  begin
    decodedate(birthday,s,ss,sss);//出生日期
    decodedate(date,a,aa,aaa);//当前日期
    nianling := a - s;
  
  end;

Answer 2

两个日期相减得到的天数 div 365

Answer 3

(datepart(year,getdate()) - datepart(year,[出生年月]))