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