|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
задача про дату рождения
Разработать приложение, которое позволяло бы вводить дату рождения и определяло, сколько дней прожил человек.
Есть еще второй вариант сколько часов прожил. Хотя бы один сделать. Че-то я совсем затупила. Добавила DateTimePicker и все. дальше ступор |
#2
|
||||
|
||||
Теперь получаем текущую дату, из неё вычитаем введённую в DateTimePicker-е. И... далее.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Мандрюля (28.12.2011)
|
#3
|
|||
|
|||
текущую дату тоже получила, а как вычесть?? вот в этом и проблема. вывести тоже знаю как
|
#4
|
|||
|
|||
Код:
uses DateUtils; var A : Integer; begin A := DaysBetween(DateOf(DateTimePicker1.Date),DateOf(Date)); end; Часы, все тоже A умнож на 24. Или более точно: Код:
A := HoursBetween(DateOf(DateTimePicker1.Date),Now); |
#5
|
||||
|
||||
Код:
procedure TForm2.Button1Click(Sender: TObject); begin if DTP.Date = Date then Exit; Label2.Caption := Format('Дней прожито: %d', [DaysBetween(DTP.Date, Date)]); Label3.Caption := Format('Часов прожито: %d', [HoursBetween(DTP.Date, Now)]); end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#6
|
|||
|
|||
:)
Всем привет! Вот тоже начал заниматься программированием .
Можете пожалуйста подсказать.... Вот код из поста №4: Код:
uses DateUtils; var A : Integer; begin A := DaysBetween(DateOf(DateTimePicker1.Date),DateOf(Date)); end; Потом я его вставляю в форму : Потом ведь надо нажимать на "PLAY": но ничего не работает. Я встал . Можете пожалуйста дать полный код, который вставляется в эту форму, ну и куда далее нажимать ))))). |
#7
|
||||
|
||||
Так, да не так. Вы создали просто форму, а форма сама по себе не исполняется, ее исполнением заведует приложение. Поэтому сначала создается приложение File/New/VCL forms application, а вот уже потом в созданную форму вы вставляете свой код. И вот приложение вы сможете PLAY
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#8
|
|||
|
|||
Цитата:
И как ее создать ? |
#9
|
||||
|
||||
Как сказано выше, так - File/New/VCL forms application.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#10
|
|||
|
|||
Цитата:
|
#11
|
||||
|
||||
Дельфи 7 - File->New->Application.
Дельфи 2009 - File->New->VCL Forms Application - Delphi. В других версиях аналогично. Это меню, что в самом верху. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#12
|
|||
|
|||
Цитата:
Так вроде тоже самое окно открывается ... |
#13
|
||||
|
||||
Уважаемый, вы вот так сели и начали набирать, что придётся, нажимать на что придётся, а книгу по Дельфи не пробовали прочитать? Здесь не курсы обучения, а место куда обращаются те, кто уже немного освоился со средой программирования и самим "языком".
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#14
|
|||
|
|||
Цитата:
|
#15
|
|||
|
|||
начинать надо с кинг, или уроков
ито и это есть в гугле |