Школоло / Говнокод #54 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 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;

Думаю, по названию функции все понятно :)

Запостил: guest guest, (Updated )

Комментарии (31) RSS

  • ava guest # Ссылка на оригинал 0

    И в чем же юмор? Автор совершенно верно делает, что возвращает результат даже в случае левых входных данных.
    Ответить

  • ava guest # Ссылка на оригинал 0

    Говногость 2:
    хмммм... задумался. Ну да, я бы так же сделал... только возвращал бы не "август", а например "хз какой месяц"
    Ответить

  • ava guest # Ссылка на оригинал 0

    Для этого есть замечательный месяц - "июбрь"
    Ответить

  • ava guest # Ссылка на оригинал 0

    stalcer:
    эксепшен это прально. но если проще то я бы возвращал пустую строку. А самое главное заменил бы case константным массивом.
    Ответить

      • ava guest # 0 ⇈

        А, ещё они хотят, чтобы все российские сайтъы хостились на российских серверах, и всем установить по анальному зщонду и слушать весь пердёж. Аи виной всчему —– боязнь, что ндам олтрчубят внешнгие щинтернеты.

        Блять, пусть сраные политикьи не лезут в управление интернетами! Ни наши, ни прочие!
        Ответить

        • ava guest # 0 ⇈

          Путешествия: Туристические Агенства

          TRAVELMIR/GREEN LIGHT TOURS TRAVELMIR/GREEN LIGHT TOURS
          Агентство, которое Вы искали
          http://www.travelmir.com

          1811 Avenue P.
          Brooklyn, NY 11229 (карта)
          Телефон: (718) 234-0787

          ALLIstanbulTours.com ALLIstanbulTours.com
          Одна нация Туристическое агентство здесь, чтобы служить своей поездки все через Турцию. Мы специализируемся на всех Турции Туры по ОАЭ, Эфес туры, туры Галлиполи, Анзак Однодневные экскурсии, туры ...
          http://www.allistanbultours.com

          255 West 36th Street, Suite 800 New York
          New York, NY 10018 (карта)
          Телефон: (800) 961-5117 Факс: 19175917556

          Ancore Transportation Services
          Транспортная компания , предоставляет 2013 года спринтер Мерседес ( 14 пассажиров ) для локальных и дальних экскурсий , туров , а так же , другие услуги ( свадьбы , дни рождения и тд. ) Мерседес ...

          12303 Runnymede st. #3
          North Hollywood, CA 91605 (карта)
          Телефон: (818) 326-9246 Факс: 818-760-8480

          EIH Travel Inc.
          Путешествия по Америке. Индивидуальные экскурсии (по ценам групповых) на машине от 2 до 12 человек. Не лежите на диване.Отправляйтесь с нами в путь. Что б забыть про все заботы и душою отдохнуть. ...
          http://www.usatravelru.com

          1821 Creekview Ln
          Jamison, PA 18929 (карта)
          Телефон: (267) 483-5289

          Hawaii with Russian Guide
          Звоните на Гаваи, говорим по русски телефон (808) 384-2076

          1255 Nuuanu
          Honolulu, HI 96817 (карта)
          Телефон: (808) 384-2076

          NEW TOURS USA NEW TOURS USA
          22 года в бизнесе. Принимающий тур оператор, все штаты США и Канада. Русские туры с ...
          http://www.newtours.us



          _____________
          Ответить

          • ava guest # 0 ⇈

            Привет, ваш регион представляется как Краснодар.
            Купить лекарства в Краснодар: шишки, гидропонуку, гашиш, скорость, ск, кристаллы, амфетамин, MDMA, экстази, героин и метадон, кокаин (кокс). Мефедрон в кристаллах, мяу-мяу, меф. Всегда можно купить готовые закладки марихуаны и спайса. Реагент 1к40 и LSD.
            Оператор Telegram: @clubdrugs
            ОСТОРОЖНЕЕ! В сети появилось много фейков с нашем именем. Для того что бы не попасть на фейк оператора telegram, переходите на наш ник строго по ссылке выше!


            http://drugsclub.site/catalog/krasnodar

            ____
            Ответить

  • ava guest # Ссылка на оригинал 0

    pozitronik:
    [quote=Говногость]Для этого есть замечательный месяц - "июбрь"[/quote]
    Ещё лучше - нулябрь
    Ответить

  • ava guest # Ссылка на оригинал 0

    q:
    хотя это ни к чему не привязанный код, мало-ли для чего он делался, может там какой-то период выделяется и граница его на август приходится?
    Ответить

  • ava guest # Ссылка на оригинал 0

    Veton:
    У русскоязычных индуссов в августе обед
    Ответить

  • ava guest # Ссылка на оригинал 0

    Master:
    по сути надо сделать так, чтобы набирались числа от 1 до 12 и никаких проблем =)
    Ответить

  • ava guest # Ссылка на оригинал 0

    const AMonths: array[1..12] of String = '';
    return AMonths[Index];
    В случае выхождения за границы - эксепшн.
    Ответить

  • ava guest # Ссылка на оригинал 0

    tButton:
    а я тоже август люблю =)
    правда мне второй год подряд не даю т августе отпуск =(
    Ответить

  • ava guest # Ссылка на оригинал 0

    Александр:
    И никто не заметил, что код не может скомпилироваться и приведён здесь так - для смеха?
    Ответить

  • ava guest # Ссылка на оригинал 0

    asail:
    С чего-бы ему не компилироваться?

    Насчет августа - надо вычислять по MOD.
    сase NumberMonth mod 12 of ...

    Ну и в case проверять от 0 до 11...
    Ответить

  • ava guest # Ссылка на оригинал 0

    mihail:
    там в case первая буква - русская. соответственно, при копипастинге код не компилируется
    Ответить

  • ava guest # Ссылка на оригинал 0

    seleznyov:
    case Year of
    2000: Result := '2000';
    2001: Result := '2001';
    ...
    2002: Result := '2002';
    else
    Result := '1999';
    end;
    Ответить

  • ava guest # Ссылка на оригинал 0

    как всегда на настройку локали пользователя нам насрать?
    function IntToMonth(NumberMonth: Integer): string;
begin
 try
  Result := LongMonthNames[NumberMonth];
 except
  on EArrayError do Result := '';
 end;
end;
    Ответить

  • ava guest # Ссылка на оригинал 0

    Lolwho:
    Даже если в случае ошибки надо возвращать Август, нахрена его было писать 2 раза, если можно просто убрать условие на 8? 😀
    Ответить

  • ava guest # Ссылка на оригинал 0

    Нормально написано. Может это для серверного приложения. А там юзеры частенько глупые. не поняли бы ни июбрь ни пустую строку а так хоть чтото. Вообще все зависит от того где использовать функцию
    Ответить

Добавить комментарий

Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

    А не использовать ли нам bbcode?

    ↑
    8
    ↓