---

&НаКлиенте
Процедура УзнатьДаты(Команда)
	
	Сегодня = ТекущаяДата();
	
	НомерДня = ДеньНедели(Сегодня);
	
	ДниНедели = Новый СписокЗначений;
	ДниНедели.Добавить("Понедельник");
	ДниНедели.Добавить("Вторник");
	ДниНедели.Добавить("Среда");
	ДниНедели.Добавить("Четверг");
	ДниНедели.Добавить("Пятница");
	ДниНедели.Добавить("Суббота");
	ДниНедели.Добавить("Воскресенье");
	
	НазваниеДня = ДниНедели[НомерДня - 1].Значение;
	
	СледующийГод = Год(Сегодня) + 1;
	ДатаНГ = Дата(СледующийГод, 1, 1);
	
	СекундДоНГ = ДатаНГ - Сегодня;
	КоличествоДней = Цел(СекундДоНГ / 86400);
	
	Сообщить("Сегодня: " + НазваниеДня);
	Сообщить("До Нового года осталось дней: " + КоличествоДней);
	
КонецПроцедуры