Разница в датах

[ViJey]

Мы в делфи) проконсультировался с преподавателем - он сказал просто года сравнить) так что задача упрощается, хотя конечно все равно хотелось бы знать, как вычислить, сколько лет человеку, учитывая, было ли в этом году у него ДР или нет...

[unbanned]

ну что то типо такого...

    
type
  date = record
    day, m, y: integer;
  end;
....
var
  bd: date;
  now: date;
  r:integer;
....
begin
....
r := now.y - bd.y;
    if bd.m > now.m then dec(r)
    else if bd.m = now.m then 
      if bd.day > now.day then dec(r);
    writeln('Разница между датами: ', r, ' полных лет');
end.