Вычисление даты

← →
Антон Шестаков (2007-10-11 14:22) [0]

Есть такой код:
function CalculateAge(Birthday, CurrentDate: TDate): Integer;
var
Month, Day, Year, CurrentYear, CurrentMonth, CurrentDay: Word;
begin
DecodeDate(Birthday, Year, Month, Day);
DecodeDate(CurrentDate, CurrentYear, CurrentMonth, CurrentDay);
if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then
begin
Result := 0;
end
else
begin
Result := CurrentYear - Year;
if (Month > CurrentMonth) then
Dec(Result)
else
begin
if Month = CurrentMonth then
if (Day > CurrentDay) then
Dec(Result);
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := Format("Your age is %d", [CalculateAge(StrToDate("01.01.1903"), Date)]);
end;

А как сделать, чтобы вместо неизменяемого "01.01.1903" вставить DateTimePicker,
чтобы дата была не фиксированной, а её можно было бы выбирать из DateTimePicker.

← →
Denis__ © (2007-10-11 14:23) [1]

DateTimePicker.Date очевидно?

← →
Плохиш © (2007-10-11 14:40) [2]

> Антон Шестаков (11.10.07 14:22)

Предлагаю заменить функцию CalculateAge функцией YearsBetween.

← →
Ega23 © (2007-10-11 14:44) [3]

На IncDay похоже. Но та,Э всё-таки, раза в 4 больше была... :)

> Антон Шестаков (11.10.07 14:22)

Всё одной строчкой делается, см. [2]

← →
Антон Шестаков (2007-10-12 12:13) [4]

И куда вставить DateTimePicker.Date? Вместо "01.01.1903"?

← →
EvS © (2007-10-12 12:15) [5]

И куда вставить DateTimePicker.Date? Вместо "01.01.1903"?

Вот где у тебя написано "01.01.1903"-туда и вставляй

← →
Плохиш © (2007-10-12 12:16) [6]

> Антон Шестаков (12.10.07 12:13) [4]
> И куда вставить DateTimePicker.Date? Вместо "01.01.1903"?

Я позволю себе не отвечать на вопросы, описанные в любом букваре.

← →
Плохиш © (2007-10-12 12:17) [7]

> EvS © (12.10.07 12:15) [5]

А следующий вопрос будет "Почему компилятор ругается?" ;-)

← →
Маша Шрайбер © (2007-10-12 12:23) [8]

>> Плохиш © (12.10.07 12:16) [6]

Скажите, в этой конфе принято задавать вопросы уровня справки вместо заглядывания в эту саму справку? Т.е. эта конфа и есть справка типа F1?
Просто боюсь быть огорченной.

← →
Игорь Шевченко © (2007-10-12 12:25) [9]

> Скажите, в этой конфе принято задавать вопросы уровня справки
> вместо заглядывания в эту саму справку?

И не только в этой

← →
Маша Шрайбер © (2007-10-12 12:27) [10]

>> Игорь Шевченко © (12.10.07 12:25) [9]

Да, Игорь, наихудшие предположения оправдываются, что огорчает.

← →
EvS © (2007-10-12 12:27) [11]

> А следующий вопрос будет «Почему компилятор ругается?»

Я оптимист, не думаю что так уж тут все запущено. Хотя&#133

← →
Плохиш © (2007-10-12 12:30) [12]

> Маша Шрайбер © (12.10.07 12:23) [8]

А ещё на этом сайте филиал всех поисковых систем...

> EvS © (12.10.07 12:27) [11]

Пессимист - это информированный оптимист

← →
Anatoly Podgoretsky © (2007-10-12 12:39) [13]

> Маша Шрайбер (12.10.2007 12:27:10) [10]

Нет в жизни совершенства.

← →
Антон Шестаков (2007-10-12 12:52) [14]

И да спрошу, ведь лучше пообщаться, чем непонимающе читать английские буквы.

← →
clickmaker © (2007-10-12 12:53) [15]

> чем непонимающе читать английские буквы.

вообще-то, они латинские )

← →
Антон Шестаков (2007-10-12 13:02) [16]

Но всё же...

← →
Антон Шестаков (2007-10-12 13:28) [17]

Но всё же, почему ругается компилятор и что лишнего убрать, а что добавить (ну объясните мне, чайнику программирования)

> ругается компилятор

как?
Открою страшную тайну: если выделить ругань и нажать F1, то откроется справка по этой ошибке. Часто она бывает с примерами исправления

>> Антон Шестаков (12.10.07 13:28) [17]
>> и что лишнего убрать,

Я бы могла сказать, но, боюсь, вы меня обматерите.

> Маша Шрайбер (12.10.2007 13:39:19) [19]

> Я бы могла сказать, но, боюсь, вы меня обматерите.

Помогу плохому танцору :-)

> [17] Антон Шестаков (12.10.07 13:28)

Я же тебе говорил: TDateTime + F1 и будет тебе счастьЯ. А вообще бросай это дело. Не твое это.

Вычисление даты Найти похожие ветки