1. 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) RSS

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