1. VisualBasic / Говнокод #19379

    −35

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    Function GetLongFromData(InDay As Integer, InMonth As Integer, InYear As Integer) As Integer
	If InYear Mod 4 = 0 Then N = 1 Else N = 0
	If InMonth = 1 Then temp = InDay
	If InMonth = 2 Then temp = InDay + 31
	If InMonth = 3 Then temp = InDay + 31 + 28 + N
	If InMonth = 4 Then temp = InDay + 31 + 28 + 31 + N
	If InMonth = 5 Then temp = InDay + 31 + 28 + 31 + 30 + N
	If InMonth = 6 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + N
	If InMonth = 7 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + N
	If InMonth = 8 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + 31 + N
	If InMonth = 9 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + N
	If InMonth = 10 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + N
	If InMonth = 11 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + N
	If InMonth = 12 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + 30 + N
	GetLongFromData = temp
End Function

    Функция, принимающая дату и возвращающая номер дня в году.

    Запостил: roman_gemini, 01 Февраля 2016

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

    • ava 1024-- 01.02.2016 18:37 # +6

      Кто так форматирует? Глаза же болят. Во истину говнокод.
      Function GetLongFromData(InDay As Integer, InMonth As Integer, InYear As Integer) As Integer
	If InYear Mod 4 = 0 And InYear Mod 100 <> 0 Or InYear Mod 400 = 0 Then N = 1 Else N = 0
	If InMonth < 3 Then N = 0
	If InMonth =  1 Then temp = InDay + N
	If InMonth =  2 Then temp = InDay + 31 + N
	If InMonth =  3 Then temp = InDay + 31 + 28 + N
	If InMonth =  4 Then temp = InDay + 31 + 28 + 31 + N
	If InMonth =  5 Then temp = InDay + 31 + 28 + 31 + 30 + N
	If InMonth =  6 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + N
	If InMonth =  7 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + N
	If InMonth =  8 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + 31 + N
	If InMonth =  9 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + N
	If InMonth = 10 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + N
	If InMonth = 11 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + N
	If InMonth = 12 Then temp = InDay + 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + 30 + N
	GetLongFromData = temp
End Function

      Выправил лесенку.
      Ответить

      • ava bormand 01.02.2016 20:00 # +12

        Вот где сишного свича не хватает...
        switch (InMonth)
{
case 12: temp += 30;
case 11: temp += 31;
// ...
case  5: temp += 30;
case  4: temp += 31;
case  3: temp += 28;
case  2: temp += 31;
case  1: temp += N;
}
        Ответить

        • ava nihau 02.02.2016 13:31 # +4

          Борманд везде fall-through применение найдет.
          Ответить

        • ava guest 02.02.2016 15:59 # +1

          Совет дня: свищ в 95% можно заменить (ассоциативным) массивом.
          int[] month={N,31,28,31,30,...,31,30};
for (int i=0;i<InMonth;++i)
    temp+=month[i];
          Ответить

          • ava 3_14dar 02.02.2016 20:43 # +3

            ..которого у сишкоблядей нету.
            Ответить

            • ava bormand 02.02.2016 21:05 # +4

              Ты же про литерал ассоциативного массива? Ну и про стандартную либу, если не про литерал. Так то скачать/запилить сраный хешмап никто не мешает.
              Ответить

        • ava adoconnection 03.02.2016 16:00 # 0

          в VB есть switch, только называется select:
          select case xxx
          case 1
          ....
          case 2
          ...
          end select
          Ответить

    • ava Vasiliy 01.02.2016 19:04 # +2

      эх молодец и високосный год учел. Один вопрос в VB нет доступа к календарным функциям?
      Ответить

      • ava roman_gemini 01.02.2016 21:00 # +2

        Есть, но в то время у меня небыло доступа к мануалам и справочникам. Сохранил на память - вот и пригодилось :)
        Ответить

    • ava bot 02.02.2016 22:41 # +3

      Судя по всему - в современном календаре давно зарыт говнокод.
      Ответить

      • ava 1024-- 02.02.2016 22:48 # +2

        Это да. Особенно в той секунде, которую добавляют к году, когда становится скучно.
        Ответить

        • ava bormand 02.02.2016 22:55 # +3

          Надо землю немножко притормозить или разогнать...
          Ответить

          • ava 3_dar 03.02.2016 21:50 # +3

            ОТРЕФАКТОРИТЬ
            Ответить

          • ava Elvenfighter 07.02.2016 23:54 # 0

            А можно секунду удлиннить или укоротить. Во всемирный фан-то начнётся!
            Ответить

            • ava bormand 08.02.2016 06:18 # 0

              Дык секунда она просто условная единица... А вот соотношение между сутками и годом привязано к вращению и кривое ;(
              Ответить

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