[vmilyoshin]

Делаю программу, в которой нужно знать точный возраст. Если человеку до 22 лет включительно, то вносятся одни показазатели, если более 22 лет, то другие показатели.
Делаю так:

Код:

procedure TForm1.GroupBox1Exit(Sender: TObject);
var
  vozrast: integer;
begin 
vozrast:= DaysBetween(Date, StrToDate(DBEditEh1.Text));
if vozrast <= 8030 then
делаю одно
else
дулаю другое

Всё бы хорошо, но это без учёта високосных лет. Как программно определить сколько високосных лет в промежутке между указанной в DBEditEh датой по настоящую дату?