01.06.2009, 12:27
|
|
Гуру
|
|
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
|
|
Обрабатываете ситуацию если число заканчивается на:
1 тогда год
2,3,4 тогда года
5,6,7,8,9,0 тогда лет
и исключение из правила если число в диапазоне:
11..14 тогда лет
Ну а код будет таким:
Код:
function AgeToStr(N: Byte): String;
Var D: String;
begin
if N in [11..14] then Result := 'лет'
else begin
D := IntToStr(N);
D := Copy(D,Length(D),1);
case D[1]
of '1': Result := 'год';
'2','3','4': Result := 'года';
else Result := 'лет';
end;
end;
end;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
|