[Мандрюля]

Разработать приложение, которое позволяло бы вводить дату рождения и определяло, сколько дней прожил человек.
Есть еще второй вариант сколько часов прожил. Хотя бы один сделать.
Че-то я совсем затупила. Добавила 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":



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

Я встал .

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