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

    Всего: 1

  2. 1C / Говнокод #8090

    −136

    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
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    Процедура ПриОткрытии()	
	Таймер();
	ПодключитьОбработчикОжидания("Таймер",1);	 
КонецПроцедуры

Процедура Таймер()	
	Если ИспользоватьНапоминание Тогда
		Если ТекущаяДата() = ВремяНапоминания Тогда
			Предупреждение(ТекстНапоминания);
		КонецЕсли;
	КонецЕсли;
	Если НачалоДня(ТекущаяДата()) + 13*60*60 > ТекущаяДата() Тогда
		ЗаголовокДляУстановки = Формат(Дата('00010101') + (НачалоДня(ТекущаяДата()) + 13*60*60 - ТекущаяДата()), "ДФ=HH:mm:ss");
		Если Прав(ЭтаФорма.Заголовок,1) <> "\" и Прав(ЭтаФорма.Заголовок,1) <> "|" и Прав(ЭтаФорма.Заголовок,1) <> "/" и Прав(ЭтаФорма.Заголовок,1) <> "-" тогда
			ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " \";
		ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "\" Тогда
			ЭтаФорма.Заголовок = ЗаголовокДляУстановки + "  |"; 
		ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "|" Тогда
			ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " /";
		ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "/" Тогда
			ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " --";
		ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "-" Тогда   
			ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " \";
		КонецЕсли;	
	ИначеЕсли НачалоДня(ТекущаяДата()) + 14*60*60 > ТекущаяДата() тогда		
		Если Прав(ЭтаФорма.Заголовок,1) <> "\" и Прав(ЭтаФорма.Заголовок,1) <> "|" и Прав(ЭтаФорма.Заголовок,1) <> "/" и Прав(ЭтаФорма.Заголовок,1) <> "-" тогда
			ЭтаФорма.Заголовок = "??:??:??" + " \"; 
		ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "\" Тогда
			ЭтаФорма.Заголовок = "??:??:??" + "  |"; 
		ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "|" Тогда
			ЭтаФорма.Заголовок = "??:??:??" + " /";
		ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "/" Тогда
			ЭтаФорма.Заголовок = "??:??:??" + " --";
		ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "-" Тогда   
			ЭтаФорма.Заголовок = "??:??:??" + " \";
		КонецЕсли;
	ИначеЕсли НачалоДня(ТекущаяДата()) + 18*60*60 > ТекущаяДата() Тогда
		ЗаголовокДляУстановки = Формат(Дата('00010101') + (НачалоДня(ТекущаяДата()) + 18*60*60 - ТекущаяДата()), "ДФ=HH:mm:ss");
		Если Прав(ЭтаФорма.Заголовок,1) <> "\" и Прав(ЭтаФорма.Заголовок,1) <> "|" и Прав(ЭтаФорма.Заголовок,1) <> "/" и Прав(ЭтаФорма.Заголовок,1) <> "-" тогда
			ЭтаФорма.Заголовок = ЗаголовокДляУстановки  + " \"; 
		ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "\" Тогда
			ЭтаФорма.Заголовок = ЗаголовокДляУстановки + "  |"; 
		ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "|" Тогда
			ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " /";
		ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "/" Тогда
			ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " --";
		ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "-" Тогда   
			ЭтаФорма.Заголовок = ЗаголовокДляУстановки + " \";
		КонецЕсли;
	Иначе
		Если Формат(ТекущаяДата(), "ДФ=dddd") = "пятница" тогда
			Если Прав(ЭтаФорма.Заголовок,1) <> ")" тогда
				ЭтаФорма.Заголовок = "С Пятницей!!! :)";
			Иначе
				ЭтаФорма.Заголовок = "С Пятницей!!! xD";
			КонецЕсли; 
		Иначе
			Если Прав(ЭтаФорма.Заголовок,1) <> "\" и Прав(ЭтаФорма.Заголовок,1) <> "|" и Прав(ЭтаФорма.Заголовок,1) <> "/" и Прав(ЭтаФорма.Заголовок,1) <> "-" тогда
				ЭтаФорма.Заголовок = "ХХ.ХХ.ХХ" + " \"; 
			ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "\" Тогда
				ЭтаФорма.Заголовок = "ХХ.ХХ.ХХ" + "  |"; 
			ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "|" Тогда
				ЭтаФорма.Заголовок = "ХХ.ХХ.ХХ" + " /";
			ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "/" Тогда
				ЭтаФорма.Заголовок = "ХХ.ХХ.ХХ" + " --";
			ИначеЕсли Прав(ЭтаФорма.Заголовок,1) = "-" Тогда   
				ЭтаФорма.Заголовок = "ХХ.ХХ.ХХ" + " \";
			КонецЕсли;	
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры

    Текст процедуры обработчика ожидания обработки, показывающей время до обеда и до окончания рабочего дня.

    EvilWisp, 05 Октября 2011

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