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

    Всего: 1

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

    +100

    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
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    function Tf_MainFrame.DateToText(d: TDate; tp: integer): string;
var s: string;
    g: integer;
begin
  if DateToStr(d) = '00.00.0000' then
  begin
    result := '';
  end else begin
  case tp of
    2:begin
        s := ''; DateTimeToString(s,'dd',d);
        result := s;
        DateTimeToString(s,'mm',d);
        g := StrToInt(s);
        DateTimeToString(s,'yyyy',d);
        case g of
            1:  begin result := result + ' января ' + s; end;
            2:  begin result := result + ' февраля ' + s; end;
            3:  begin result := result + ' марта ' + s; end;
            4:  begin result := result + ' апреля ' + s; end;
            5:  begin result := result + ' майя ' + s; end;
            6:  begin result := result + ' июня ' + s; end;
            7:  begin result := result + ' июля ' + s; end;
            8:  begin result := result + ' августа ' + s; end;
            9:  begin result := result + ' сентября ' + s; end;
            10: begin result := result + ' октября ' + s; end;
            11: begin result := result + ' ноября ' + s; end;
            12: begin result := result + ' декабря ' + s; end;
        end;
      end
    else begin
       result := DateToStr(d);
    end;
  end;
  end;
end;

    Календарь ацтеков, месяц майя:)

    Nilud, 18 Мая 2012

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