Часы, падающие снежинки в поле HTML.

Создаем новый макет с типом HTML документ. И вставляем туда:

< HTML>
< HEAD>
< BODY on load=initsnow(); now() leftMargin=0 scroll=no topMargin=0 bgColor=#fcfaeb>
< CENTER>...

< SCRIPT>
dayarray=new Array("Воскресенье","Понедельник","Вторник","Среда","Четверг","Пятница","Суббота")
montharray=new Array ("января","февраля","марта","апреля","мая","июня","июля","августа","сентября", "октября","ноября","декабря")
function now()
{ // Начало функции
var date=new Date(); // Получаем доступ к обьекту
var h=date.getHours();
var m=date.getMinutes();
var s=date.getSeconds(); // Секунды
var day=dayarray[date.getDay()];
var month=montharray[date.getMonth()];
var date1=date.getDate();
var year=date.getYear();
// Добавим нолик спереди, если число меньше 10
if(h < 10) h="0"+h;
if(m < 10) m="0"+m;
if(s < 10) s="0"+s;
// Пишем новую инфу в тестовое содержимое слоя
document.getElementById("DinamDate").firstChild.nodeValue=date1+" "+month+" "+year+". "+day+". "+h+":"+m+":"+s;
setTimeout("now()",500) // Вызываем функцию now() повторно, через 100 миллисекунд
}
< /SCRIPT>

< SCRIPT type=text/javascript>
 
// Здесь размещаем скрипт "снега".
< /SCRIPT> < /BODY>
< /HTML>

***

Далее на форме создаем поле вида «Поле HTML документа» и реквизит ТекстЧасов типа «Сторка». Связываем их. И далее вставляем:

&НаКлиенте
Процедура ПриОткрытии(Отказ)
ЗапуститьЧасы();
КонецПроцедуры

&НаСервере
Процедура ЗапуститьЧасы()
Месяц = Число(Формат(ТекущаяДата(), "ДФ=M"));
Если ((1 < Месяц) и (Месяц < 12)) Тогда
НазваниеМакета = "ДатаИВремя"
Иначе
НазваниеМакета = "ДатаИВремяИСнег";
КонецЕсли;
ТекстЧасов =  Обработки.МоиЧасы.ПолучитьМакет(НазваниеМакета).ПолучитьТекст();
КонецПроцедуры

 ***

Ии… вуаля!

Снежинками обзавелся уже давно.  Предновогодний синдром сделал свое дело. 

Скрипт снега №1.

Скрипт снега №2.

 ***

Функционирует это на 8.2 на управляемых формах.

Для удобства хотел сделать кнопку отключения эффекта снега на самом поле HTML, но необходимости пока нет. Оставлю Вам на «растерзание».

Спасибо.