Бесполезный компонент - вычисляет возраст по дате рождения. Глядишь, кому и пригодится;-))

Добавлен вывод результата в виде строки типа "1 год, 15 лет, 23 года и т.д."

Редактировалось 7 раз(а), последний 2021-06-22 14:45:33

Хм... а по дням можешь составить(...23года, 5месяцев, 4дня, 2часа, 15сек( ))

Assasin, а тебе самому-то сколько часов?

Мне этот компонент тоже оч пригодился Спасибо !
А можно сделать так, чтобы он высчитывал возраст не только на текущий момент времени, а на любой другой период времени, который можно было бы также вводить, как и дату рождения?

Можно
code_22792.txt

Редактировалось 7 раз(а), последний 2021-06-22 14:45:33

Ivann, и так можно.
code_22795.txt
------------ Дoбавленo в 20.05:
Сравни размеры

Tad, Это не мой код, я его взял из компонента, и просто немного переделал. На оптимизацию времени нет.

Ivann, у меня конструктор не компилирует этот код Вот что пишет среди ошибок красным:
Build start...
...\\HiAsm\\Elements\\Delphi\\code\\hiInlineCode_2DE0220.pas(101) Error: \';\' expected but \'.\' found
...\\HiAsm\\Elements\\Delphi\\code\\hiInlineCode_2DE0220.pas(103) Error: Declaration expected but end of file found
End build

[size=-2]------ Добавлено в 22:33
г. гость, тоже самое и с этим кодом
Вот что пишет среди ошибок:
...\HiAsm\Elements\Delphi\code\hiInlineCode_2DB7548.pas(37) Error: Unterminated string
...\HiAsm\Elements\Delphi\code\hiInlineCode_2DB7548.pas(60) Error: Missing operator or semicolon
...\HiAsm\Elements\Delphi\code\hiInlineCode_2DB7548.pas(60) Error: Unterminated string
...\HiAsm\Elements\Delphi\code\hiInlineCode_2DB7548.pas(83) Error: Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'
...\HiAsm\Elements\Delphi\code\hiInlineCode_2DB7548.pas(92) Error: Declaration expected but end of file found

Ntl-M, а мой код ? http://forum.hiasm.com//getfile/22796
В последнее время программы с IC не всегда ( и не у всех) неправильно копируются.

Tad, ваш код компилирует, но при копировании в конструктор не находит точки входа Date Time, я подключила точки Date, при расчете выдаёт результат 0, я уже разные варианты подключения испробовала, все равно не считает. Какие именно точки надо подключить и в какой последовательности уточните, пожалуйста

Ntl-M, не понял проблемы

Tad, я копирую ваш код, вставляю в конструктор, а он мне при вставке пишет, что не нашел точки входа Date Time, хотя они есть, я сама их подключаю к мат.парсеру, компилирую, ввожу разные даты в DatePickerы, а в результате расчета все равно 0... Вот в чем проблема...
Может проблема в том, какой у меня DatePicker установлен? Я его из компонентов скачивала и устанавливала, он усовершенствованный был на тот момент.

[size=-2]------ Добавлено в 22:51
DatePicker2.0.rar

1. Судя по всему у Вас устаревший DatePicker
2. Считается разница в годах