1. 1C / Говнокод #4877

    −127

    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
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    Каталог=СокрЛП(ИмяКаталога); 

Цифры="0123456789"; 
Д=ТекущаяДата(); 
ДД=""; 
Стр=Каталог; 

х=Найти(Стр,"."); 
Если х>0 Тогда 
Символ1=Сред(Стр,х-2,1); 
Если Найти(Цифры,Символ1)>0 Тогда 
ДД=Символ1; 
КонецЕсли; 

Символ2=Сред(Стр,х-1,1); 
Если Найти(Цифры,Символ2)>0 Тогда 
ДД=ДД+Символ2+"."; 
КонецЕсли; 

Стр=Сред(Стр,х+1); 
КонецЕсли; 

х=Найти(Стр,"."); 
Если х>0 Тогда 
Символ1=Сред(Стр,х-2,1); 
Если Найти(Цифры,Символ1)>0 Тогда 
ДД=ДД+Символ1; 
КонецЕсли; 

Символ2=Сред(Стр,х-1,1); 
Если Найти(Цифры,Символ2)>0 Тогда 
ДД=ДД+Символ2+"."; 
КонецЕсли; 

Стр=Сред(Стр,х+1); 

Символ1=Лев(Стр,1); 
Если Найти(Цифры,Символ1)>0 Тогда 
ДД=ДД+Символ1; 
КонецЕсли; 

Символ2=Сред(Стр,2,1); 
Если Найти(Цифры,Символ2)>0 Тогда 
ДД=ДД+Символ2; 
КонецЕсли; 
КонецЕсли; 

Если СтрДлина(ДД)=8 Тогда 
Д=Дата(ДД); 
Сообщить(Д); 
КонецЕсли;

    Вот нашел на одном из форумов. Программер ищет дату.

    Запостил: Ivon, 09 Декабря 2010

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

    • ava ingenuus 09.12.2010 12:38 # 0

      Не верю! Кинь ссылку.
      Ответить

    • ava Govnocoder#0xFF 09.12.2010 15:39 # 0

      И этому гавнюку 20 лет...
      Ответить

    • ava guest 23.03.2012 22:56 # 0

      Сука, нахуй этим уебам заниматся кодингом? Пусть лучше устраивают шоу с убиванием себя об стену, хоть что-то полезное.
      Ответить

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