Говнокод #19379 — VisualBasic

Говнокод: по колено в коде.

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

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

−35

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

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

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

Ответить

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;
}
```
Ответить
- nihau 02.02.2016 13:31 # +4
  
  Борманд везде fall-through применение найдет.
  Ответить
- 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];
  Ответить
  - 3_14dar 02.02.2016 20:43 # +3
    
    ..которого у сишкоблядей нету.
    Ответить
    - bormand 02.02.2016 21:05 # +4
      
      Ты же про литерал ассоциативного массива? Ну и про стандартную либу, если не про литерал. Так то скачать/запилить сраный хешмап никто не мешает.
      Ответить
- adoconnection 03.02.2016 16:00 # 0
  
  в VB есть switch, только называется select:
  select case xxx
  case 1
  ....
  case 2
  ...
  end select
  Ответить
  - nihau 03.02.2016 17:04 # +2
    
    он не сквозной
    Ответить
    - inkanus-gray 04.02.2016 00:40 # +2
      
      select case xxx
      case 1
      ....
      goto 2
      case 2
      2:
      ...
      goto 3
      case 3
      3:
      ...
      end select
      
      Ответить

Vasiliy 01.02.2016 19:04 # +2

эх молодец и високосный год учел. Один вопрос в VB нет доступа к календарным функциям?
Ответить
- roman_gemini 01.02.2016 21:00 # +2
  
  Есть, но в то время у меня небыло доступа к мануалам и справочникам. Сохранил на память - вот и пригодилось :)
  Ответить
bot 02.02.2016 22:41 # +3

Судя по всему - в современном календаре давно зарыт говнокод.
Ответить
- 1024-- 02.02.2016 22:48 # +2
  
  Это да. Особенно в той секунде, которую добавляют к году, когда становится скучно.
  Ответить
  - bormand 02.02.2016 22:55 # +3
    
    Надо землю немножко притормозить или разогнать...
    Ответить
    - 3_dar 03.02.2016 21:50 # +3
      
      ОТРЕФАКТОРИТЬ
      Ответить
    - Elvenfighter 07.02.2016 23:54 # 0
      
      А можно секунду удлиннить или укоротить. Во всемирный фан-то начнётся!
      Ответить
      - bormand 08.02.2016 06:18 # 0
        
        Дык секунда она просто условная единица... А вот соотношение между сутками и годом привязано к вращению и кривое ;(
        Ответить

Говнокод: по колено в коде.

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

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

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