1. Список говнокодов пользователя rat

    Всего: 1

  2. Pascal / Говнокод #3267

    +104

    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
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    function fnGetWeekDay:integer;
//функция fnGetWeekDay возвращает день недели
var
  CurDate: date;
  dd,mm,yy: word;
  cent, month, iRes : integer;
Begin
  CurDate = CurrentDate;
  DecodeDate(CurDate,yy,mm,dd);
  month = mm;
  if mm < 3 then mm = mm + 10
  else mm = mm - 2;
  if mm > 10 then yy = yy - 1;
  cent = yy div 100;
  yy = yy mod 100;
  iRes = ((2.6*mm-0.2) div 1) + dd + yy + (yy div 4) + (cent div 4) - 2*cent;
  iRes = ((iRes+777) mod 7);
  if (month == 5) or (month == 7) or (month == 10) or (month == 12) then iRes = iRes - 1;
  if iRes == -1 then result = 6
  else if iRes == 0 then result = 7
  else result = iRes;
End; //  fnGetWeekDay

    Это не совсем Delphi. Это нечто с крайне похожим синтаксисом.
    Почему нельзя было использовать (CurrentDate - <какое-нибудь воскресенье>) mod 7 я не знаю.

    rat, 19 Мая 2010

    Комментарии (21)