С прошедшим днем программиста!

Дорогие программеры, с огромным опозданием поздравляю всех вас с вашим праздником! Не меньше трети сисадминов тоже программеры, поэтому поздравляю всех, кто скриптит, кодит ночи и дни напролет за деньги и для души!

(Wikipedia) День программи́ста — профессиональный праздник программистов, отмечаемый на 256-й день года (для программиста это 255-й день года или 0xFF-ный в 16-ричной системе счисления, так как счёт начинается с нуля). Число 256 (2⁸) выбрано потому, что это количество чисел, которое можно выразить с помощью восьмиразрядного байта. И также это максимальная степень числа 2, которая меньше 365 (дней в году).

В невисокосный год данный праздник выпадает на 13 сентября, a в високосный год на 12 сентября.

Впервые отмечать 256-й день года как профессиональный праздник программистов предложил Валентин Балт, сотрудник веб-студии «Параллельные Технологии». Еще в 2002 году он даже пытался собрать подписи под обращением к правительству РФ в поддержку признания этого дня Официальным праздником.

24 июля 2009 года Министерством связи и массовых коммуникаций РФ подготовлен и внесен в правительство РФ проект указа президента России «О Дне программиста».

11 сентября 2009 года Президент России Дмитрий Медведев подписал указ, подготовленный Министерством связи и массовых коммуникаций Российской Федерации, который устанавливает в России новый официальный праздник — «День программиста».

В этом году день программиста был 13 сентября.

Процедура ДеньПрограммиста()
Если НомерДняГода(ТекущаяДата()) <> 256 Тогда
Возврат;
КонецЕсли;
СЗГости = СоздатьОбъект("СписокЗначений");
СпрКоллеги = СоздатьОбъект("Справочник.Коллеги");
СпрКоллеги.ВыбратьЭлементы();
Пока СпрКоллеги.ПолучитьЭлемент() = 1 Цикл
Сообщить("Уважаемый коллега, " + СпрКоллеги.Наименование + "!
Поздравляю с Днем Программиста!!!");
Если СпрКоллеги.ЖиветРядом = 1 Тогда
СЗГости.ДобавитьЗначение(СпрКоллеги.ТекущийЭлемент());
КонецЕсли
КонецЦикла;
Пока НомерДняГода(ТекущаяДата()) = 256 Цикл
Для Инд = 1 По СЗГости.РазмерСписка() Цикл
глНалитьСтопку(СЗГости.ПолучитьЗначение(Инд));
КонецЦикла;
Сообщить();
Для Инд = 1 По СЗГости.РазмерСписка() Цикл
глЧокнуться(СЗГости.ПолучитьЗначение(Инд))
КонецЦикла;
глВыпитьСтопку();
КонецЦикла
КонецПроцедур

[<<< Следующая новость]  [Все новости]  [Предыдущая новость >>>]