- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
function IntToMonth(NumberMonth: Integer): string;
begin
сase NumberMonth of
1: Result := 'Январь';
2: Result := 'Февраль';
3: Result := 'Март';
4: Result := 'Апрель';
5: Result := 'Май';
6: Result := 'Июнь';
7: Result := 'Июль';
8: Result := 'Август';
9: Result := 'Сентябрь';
10: Result := 'Октябрь';
11: Result := 'Ноябрь';
12: Result := 'Декабрь';
else
Result := 'Август';
end;
end;
Follow us!
хмммм... задумался. Ну да, я бы так же сделал... только возвращал бы не "август", а например "хз какой месяц"
а я бы кидал эксепшн
эксепшен это прально. но если проще то я бы возвращал пустую строку. А самое главное заменил бы case константным массивом.
[quote=Говногость]Для этого есть замечательный месяц - "июбрь"[/quote]
Ещё лучше - нулябрь
хотя это ни к чему не привязанный код, мало-ли для чего он делался, может там какой-то период выделяется и граница его на август приходится?
У русскоязычных индуссов в августе обед
по сути надо сделать так, чтобы набирались числа от 1 до 12 и никаких проблем =)
return AMonths[Index];
В случае выхождения за границы - эксепшн.
а я тоже август люблю =)
правда мне второй год подряд не даю т августе отпуск =(
И никто не заметил, что код не может скомпилироваться и приведён здесь так - для смеха?
С чего-бы ему не компилироваться?
Насчет августа - надо вычислять по MOD.
сase NumberMonth mod 12 of ...
Ну и в case проверять от 0 до 11...
там в case первая буква - русская. соответственно, при копипастинге код не компилируется
вот тогда точно говонокод! )
case Year of
2000: Result := '2000';
2001: Result := '2001';
...
2002: Result := '2002';
else
Result := '1999';
end;
Даже если в случае ошибки надо возвращать Август, нахрена его было писать 2 раза, если можно просто убрать условие на 8? :D