请高手帮写个函数(50分)

小弟写个关于计算年龄的函数,那位高手有空,描述:现在是2006年6月,就用2005减去出生年月得一个数,(若现在是2006年9月,就用2006减),判断出生年月是8月还是9月,若是8月就直接得到年龄,若是9月就要再减去1得到某人的实际年龄.//一点说明:2005年9月-2006年8月为2005年度,所以用2005去减,2006年9月-2006年8月为2006年度,用2006去减!
Function(Now_date,Birthday_date);

你就是要算相差年份吧？简单
uses DateUtils;

ShowMessage(IntToStr(YearsBetween(Now_Date, Birthday_Date)));

uses DateUtils;

function MonthsBetween(const ANow, AThen: TDateTime): Integer;

function GetAge(Now_Date,Birthday_date:TDateTime):Integer;
var
Now_Year,Now_Month,
BirthDay_Year,BirthDay_Month:Integer;
i:Integer;
begin
Result := 0;
i := 0;
Now_Year := YearOf(Now_Date);
Now_Month := MonthOf(Now_Date);
BirthDay_Year := YearOf(Birthday_date);
BirthDay_Month := MonthOf(Birthday_date);

if BirthDay_Month >= 9 then i := 1;

if(Now_Month < 9) then
Result := Now_Year - BirthDay_Year - 1 - i
else
Result := Now_Year - BirthDay_Year - i;
end;

是你你这个思路！我还得学习