Получить разницу Даты

[MAcK]

Есть такой алгоритм:

   years := YearsBetween(birthday,todate);
   months := MonthsBetween(birthday,todate);
   days := daysBetween(birthday,todate);

Но при вводе 4.10.2008 и 4.10.2009 выдаёт

years = 0
months = 11
days = 31

тоесть 1 год, как получить коррентую разницу?

[NieL]

procedure Tfrm_Test.Button1Click(Sender: TObject);

  function _YearsBetween(const ANow, AThen: TDateTime): Integer;
  begin
    Result := Round(YearSpan(ANow, AThen));
  end;

  function _MonthsBetween(const ANow, AThen: TDateTime): Integer;
  begin
    Result := Round(MonthSpan(ANow, AThen));
  end;

  function _DaysBetween(const ANow, AThen: TDateTime): Integer;
  begin
    Result := Round(DaySpan(ANow, AThen));
  end;

var
  y, m, d: Integer;
  N, C: TDate;
begin
  N := StrToDate('4.10.2008');
  C := StrToDate('4.10.2009');

  y := _YearsBetween(N, C);
  m := _MonthsBetween(N, C);
  d := _DaysBetween(N, C);

  ShowMessageFmt('%d'#13#10'%d'#13#10'%d', [y, m, d]);
end;