|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как определить точный возраст?
Делаю программу, в которой нужно знать точный возраст. Если человеку до 22 лет включительно, то вносятся одни показазатели, если более 22 лет, то другие показатели.
Делаю так: Код:
procedure TForm1.GroupBox1Exit(Sender: TObject); var vozrast: integer; begin vozrast:= DaysBetween(Date, StrToDate(DBEditEh1.Text)); if vozrast <= 8030 then делаю одно else дулаю другое Всё бы хорошо, но это без учёта високосных лет. Как программно определить сколько високосных лет в промежутке между указанной в DBEditEh датой по настоящую дату? |
#2
|
||||
|
||||
Используй YearsBetween();
Google в помощь |
Этот пользователь сказал Спасибо Ildar-tsr за это полезное сообщение: | ||
vmilyoshin (22.12.2011)
|