两个日期加减的问题

Question

如一个人是1955-5-21出生的,用现在的日期减去1955-5-21得到他的年龄48岁，代码怎么写。

Answer 1

var
  Year, Month, Day : Word;
  Year1, Month2, Day3 : Word;
 begin
  DecodeDate(Date, Year, Month, Day);
  DecodeDate(StrToDate('1955-5-21'), Year2, Month2, Day2);
  Year-Year2 :=  年龄  //算一下是不是对的。好像要加1
end;

Answer 2

trunc((date-strtodate('1955-5-21'))/365)

Answer 3

用一个函数 yearsbetween('1955-5-21','955-5-21')

Answer 4

blue_bird3000() ( ) 信誉：100 
回答的比较简单一点，就用这个了。

Answer 5

yearsbetween;  uses dateutils

Answer 6

yearsbetween;  uses dateutils