ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Возраст человека
10 сообщений из 10, страница 1 из 1
Возраст человека
    #39985794
Marina_ph2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Marina_ph2
Гость
Добрый день всем)))

Подскажите пожалуйста можно ли как то сделать расчет возраста человека по введенному значению в DBEdit с точностью до дня?
пытаюсь использовать код:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
procedure TForm7.vozrClick(Sender: TObject);
var
z: Word;
myDate:TDateTime;
begin
 z:=StrToInt(birthday.Text);
 myDate:= EncodeDate(z);


Но вылетает ошибка: [dcc32 Error] Unit7.pas(91): E2035 Not enough actual parameters
Тип данных в Access(Дата/ Время.
Буду признательна за советы =)
...
Рейтинг: 0 / 0
01.08.2020, 15:34
| Ответить | Цитировать | Написать  
Возраст человека
    #39985795
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
Marina_ph2Но вылетает ошибка: [dcc32 Error] Unit7.pas(91): E2035 Not enough actual parameters

Ну так надо же документацию читать, а не просто абы как сляпать две случайные функции и
сразу бежать форум чтобы остальное дописали за тебя.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
01.08.2020, 15:37
| Ответить | Цитировать | Написать  
Возраст человека
    #39985796
x1ca4064
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x1ca4064
Участник
Marina_ph2

Буду признательна за советы =)


У DBEdit есть свойство Field - из него дату и получайте.

Код z:=StrToInt(birthday.Text) будет вызывать ошибку во время выполнения. Понимаете, почему? Что, вообще, планировали получить этим заклинанием?
...
Рейтинг: 0 / 0
01.08.2020, 15:52
| Ответить | Цитировать | Написать  
Возраст человека
    #39985805
Marina_ph2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Marina_ph2
Гость
Dimitry Sibiryakov, мне проще спросить)
...
Рейтинг: 0 / 0
01.08.2020, 17:16
| Ответить | Цитировать | Написать  
Возраст человека
    #39985806
Marina_ph2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Marina_ph2
Гость
x1ca4064, а можете описать подробнее))
...
Рейтинг: 0 / 0
01.08.2020, 17:16
| Ответить | Цитировать | Написать  
Возраст человека
    #39985816
ВсеРазумный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВсеРазумный
Гость
Marina_ph2,

Проще всё таки было в гугл вставить функцию.
...
Рейтинг: 0 / 0
01.08.2020, 19:01
| Ответить | Цитировать | Написать  
Возраст человека
    #39985840
x1ca4064
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
x1ca4064
Участник
Marina_ph2
x1ca4064, а можете описать подробнее))

Легко, но хотелось бы получить ответы на вопросы, которые задал - так проще понять, что именно описывать подробнее.
...
Рейтинг: 0 / 0
01.08.2020, 21:29
| Ответить | Цитировать | Написать  
Возраст человека
    #39985855
Gluck99
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gluck99
Участник
Вы тут гадаете на кофейной гуще, а я через хрустальный шар вижу, что автору надо это:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
...
 var
     PersonDateOfBirth: TDateTime;  { Дата рождения человека }
     PersonDaysOfAge: integer;      { Возраст человека в днях (относительно сегодняшней даты) }
begin
     PersonDateOfBirth := StrToDate(Birthday.Text);
     PersonDaysOfAge := DaysBetween(PersonDateOfBirth, Date());
     ShowMessage(Format('Длина жизни раба божьего в днях: %d', [PersonDaysOfAge]));
end;
...
Рейтинг: 0 / 0
02.08.2020, 00:58
| Ответить | Цитировать | Написать  
Возраст человека
    #39985856
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
Marina_ph2,

Есть такой модуль - DateUtils. Там много-много вкусного....
...
Рейтинг: 0 / 0
02.08.2020, 01:05
| Ответить | Цитировать | Написать  
Возраст человека
    #39985875
Gerasimenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gerasimenko
Участник
Marina_ph2,

учитывая, как в Delphi хранится дата, простая разница чисел
...
Рейтинг: 0 / 0
02.08.2020, 11:17
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Возраст человека
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39985875&tid=2038100]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 231ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 67ms
get tp. blocked users:
 1ms
others: 230ms
total:  578ms
созд. / загр.: 578ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]