Делаю программу, в которой нужно знать точный возраст. Если человеку до 22 лет включительно, то вносятся одни показазатели, если более 22 лет, то другие показатели.
Делаю так:
Код:
procedure TForm1.GroupBox1Exit(Sender: TObject);
var
vozrast: integer;
begin
vozrast:= DaysBetween(Date, StrToDate(DBEditEh1.Text));
if vozrast <= 8030 then
делаю одно
else
дулаю другое
Всё бы хорошо, но это без учёта високосных лет. Как программно определить сколько високосных лет в промежутке между указанной в DBEditEh датой по настоящую дату?