Вычисление даты [D7, XP]
Страницы:
<
1
2
>
Антон Шестаков © (2007-10-11 14:22:00)
Есть такой код:
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:00) [21]
DateTimePicker.Date очевидно?
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
