[Мандрюля]

Разработать приложение, которое позволяло бы вводить дату рождения и определяло, сколько дней прожил человек.
Есть еще второй вариант сколько часов прожил. Хотя бы один сделать.
Че-то я совсем затупила. Добавила DateTimePicker и все. дальше ступор

[angvelem]

Теперь получаем текущую дату, из неё вычитаем введённую в DateTimePicker-е. И... далее.

[Мандрюля]

текущую дату тоже получила, а как вычесть?? вот в этом и проблема. вывести тоже знаю как

[lmikle]

Код:

uses
  DateUtils;

var
  A : Integer;
begin
  A := DaysBetween(DateOf(DateTimePicker1.Date),DateOf(Date));
end;

Часы, все тоже A умнож на 24. Или более точно:

Код:

A := HoursBetween(DateOf(DateTimePicker1.Date),Now);

[angvelem]

Код:

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;

Эх опоздал.

[Artyom]

Всем привет! Вот тоже начал заниматься программированием .

Можете пожалуйста подсказать.... Вот код из поста №4:

Код:

uses
  DateUtils;

var
  A : Integer;
begin
  A := DaysBetween(DateOf(DateTimePicker1.Date),DateOf(Date));
end;

Потом я его вставляю в форму :



Потом ведь надо нажимать на "PLAY":



но ничего не работает.

Я встал .

Можете пожалуйста дать полный код, который вставляется в эту форму, ну и куда далее нажимать ))))).

[Страдалецъ]

Так, да не так. Вы создали просто форму, а форма сама по себе не исполняется, ее исполнением заведует приложение. Поэтому сначала создается приложение File/New/VCL forms application, а вот уже потом в созданную форму вы вставляете свой код. И вот приложение вы сможете PLAY

[Artyom]

Сообщение от Страдалецъ

Вы создали просто форму, а форма сама по себе не исполняется, ее исполнением заведует приложение. Поэтому сначала создается приложение File/New/VCL forms application

И как ее создать ?

[angvelem]

Как сказано выше, так - File/New/VCL forms application.

[Artyom]

Сообщение от angvelem

Как сказано выше, так - File/New/VCL forms application

А можете пожалуйста привести скрин ... а что както не доежаю ... где найти - File/New/VCL forms application ...

[angvelem]

Дельфи 7 - File->New->Application.
Дельфи 2009 - File->New->VCL Forms Application - Delphi.
В других версиях аналогично.

Это меню, что в самом верху.

[Artyom]

Сообщение от angvelem

Дельфи 7 - File->New->Application.
Дельфи 2009 - File->New->VCL Forms Application - Delphi.
В других версиях аналогично.

Это меню, что в самом верху.

Так вроде тоже самое окно открывается ...

[angvelem]

Уважаемый, вы вот так сели и начали набирать, что придётся, нажимать на что придётся, а книгу по Дельфи не пробовали прочитать? Здесь не курсы обучения, а место куда обращаются те, кто уже немного освоился со средой программирования и самим "языком".

[AlexSku]

Сообщение от Artyom

Так вроде тоже самое окно открывается ...

Это оно открывается для новичков. Но можно открыть ещё файл проекта (список всех модулей: View / Units...), это и будет главная программа, которая пристыковывает другие модули. В этом файле (у него расширение dpr) новичкам ничего не рекомендуется делать, а только посматривать, что там пишет Delphi.

[Pyro]

начинать надо с кинг, или уроков
ито и это есть в гугле