日期相减得出年用什么函数？

strtoint(FormatDateTime('yyyy',Date2))-strtoint(FormatDateTime('yyyy',Date1))

 

 

decodedate()
formatdatetime()
year();

 

 

DecodeDate(date(), nowYear, Month, Day);
DecodeDate(出生年月, Year, Month, Day);
年龄:=nowyear-year；即可得出年龄
或
int((date-出生年月日)/360)也可  

我认为最好的函数应该是YearsBetween,记住uses加上DateUtils.
以下是相关的帮助:不过,如果你不想另外uses,你可以用上面的方法,只不过这一个是专门
的函数而已.
function YearsBetween(const ANow, AThen: TDateTime): Integer;

Description

Call YearsBetween to obtain the difference, in years, between two TDateTime values. Because years are not all the same length (e.g. leap years), YearsBetween returns an approximation based on an assumption of 365.25 days per year. Fractional years are not counted. Thus, for example, YearsBetween reports the difference between Jan 1 and Dec 31 as 0 on non-leap years and 1 on leap years.  

//-----精确计算出生日期------------
设：Birthday为出生日期，Age年龄
DecodeDate(Now, nowYear, NowMonth, NowDay);
DecodeDate(Birthday, Year, Month, Day);
Age:=nowyear-year；
if EncodeDate(Year, NowMonth, NowDay) > Birthday then
  Inc(Age);

我比较同意whlxt的方法，不过我觉得他最后一句写得有点问题，而且没有考虑闰年的情况，
现将whlxt的程序略作更改及注释如下(已测试通过)，供大家讨论参考：

//-----精确计算出生日期------------
//设：Birthday为出生日期，Age年龄
DecodeDate(Now, nowYear, NowMonth, NowDay);
DecodeDate(Birthday, Year, Month, Day);
Age:=nowyear-year;
//当前年份与出生年份之差，实际年龄只可能小于等于此差值，
//若当前月日>=出生月日，则实际年龄=Age；
//若当前月日<出生月日，则实际年龄=Age-1；
//若Age本身已经=0，则不再作比较，说明当前年份与出生年份是同一年。

if Age>0 then
  if (当前年是闰年) then    
  begin
    //用(当前的年份+出生的月日)组成新日期，将此日期与当前日期作比较，
    //如果新日期>=当前日期，说明今年的生日还没到，Age-1。
    //因为当前年是闰年，这时不论出生年是否闰年，我们用(当前的年份+出生的月日)
    //组成的新日期总是存在的，不必担心组合后的新日期非法。
    if EncodeDate(NowYear, Month, Day) >= Now then
      Dec(Age);
  end
  else  //当前年不是闰年
  begin
    //用(出生的年份+当前的月日)组成新日期，将此日期与出生日期作比较，
    //如果新日期<出生日期，说明今年的生日还没到，Age-1。
    //因为当前年不是闰年，这时不论出生年是否闰年，我们用(出生的年份+当前的月日)
    //组成的新日期总是存在的，不必担心组合后的新日期非法。
    if EncodeDate(Year, NowMonth, NowDay) < Birthday then
      Dec(Age);
  end;

//上面判断当前年是否闰年的过程可以另写，并不复杂，这里就不再赘述了。

以下函数用于得到实足年龄的算法：（算法中已经考虑了闰年的问题）
function GetRealAge(Birthday:DateTime):integer;
var
  nowYear, NowMonth, NowDay:Word;
  Year, Month,Day:Word;
begin
  DecodeDate(Now(), nowYear, NowMonth, NowDay);
  DecodeDate(Birthday, Year, Month, Day);
  result:=nowYear-Year;
  if ((NowMonth shl 5)+NowDay)<((Month shl 5)+Day) then Dec(result);
end;

以下函数用于得到两年份之间的实足年数的算法：（算法中已经考虑了闰年的问题）
function GetRealYear(PastDate,NowDate:DateTime):integer;
var
  nowYear, NowMonth, NowDay:Word;
  Year, Month,Day:Word;
begin
  DecodeDate(NowDate, nowYear, NowMonth, NowDay);
  DecodeDate(PastDate, Year, Month, Day);
  result:=nowYear-Year;
  if ((NowMonth shl 5)+NowDay)<((Month shl 5)+Day) then Dec(result);
end;