Поздравление с новым годом!

Простая обработочка на простых формах для поздравления пользователей с праздниками (новый год, рождество, 8 марта, 23 февраля, день рождения и т.д.).
Несколько картинок, рандомно выбирается одна из них, чтоб не так скучно было, правда все на обычных формах, никак руки не дойдут переделать на УФ.

В публикации прикреплена "С новым годом!"
При начале работы системы проверяется дата и в зависимости от ее значения запускается та или иная обработка, можно наворотить, но это если нечем заняться), это было для поднятия настроения пользователей в праздники))))

Примерно так.

Если ДеньГода(ТекущаяДата()) = 366
или ДеньГода(ТекущаяДата()) = 365
или ДеньГода(ТекущаяДата()) = 364
или ДеньГода(ТекущаяДата()) = 363
или ДеньГода(ТекущаяДата()) = 1
тогда
//Запускаем обработку С новым годом!
КонецЕсли;

Если ДеньГода(ТекущаяДата()) = 6
или ДеньГода(ТекущаяДата()) = 7
или ДеньГода(ТекущаяДата()) = 8
тогда
//Запускаем обработку С рождеством!
КонецЕсли;

Если (Месяц(ТекущаяДата()) = 3 и День(ТекущаяДата()) = 7)
или (Месяц(ТекущаяДата()) = 3 и День(ТекущаяДата()) = 8)
или (Месяц(ТекущаяДата()) = 3 и День(ТекущаяДата()) = 9)
тогда
Если Пользователь.Пол = Перечисления.ПолФизическогоЛица.Женский тогда
//Запускаем обработку с 8 марта!
КонецЕсли;
КонецЕсли;

Если (Месяц(ТекущаяДата()) = 2 и День(ТекущаяДата()) = 22)
или (Месяц(ТекущаяДата()) = 2 и День(ТекущаяДата()) = 23)
или (Месяц(ТекущаяДата()) = 2 и День(ТекущаяДата()) = 24)
тогда
Если Пользователь.Пол = Перечисления.ПолФизическогоЛица.Мужской тогда
//Запускаем обработку с 23 февраля!
КонецЕсли;
КонецЕсли;


Если Месяц(ТекущаяДата()) = Месяц(Пользователь.ДатаРождения) и День(ТекущаяДата()) = День(Пользователь.ДатаРождения) тогда
//Прописываем в заголовок ФИО и запускаем обработку с ДР!
КонецЕсли;

Тестировалось на 1С:Предприятие 8.3 (8.3.12.1685)