Напрмиер, есть Дата = ТекущаяДата()
Число = 2010
Как изменить Дата, чтобы год в Дате изменился на 2010, а остальное осталось?

(0) "ДобавитьМесяц". Читайте СП.

ТекДата=ТекущаяДата();  //Сохрнам текущую дату
тГод=Год(ТекДата);
тМесяц=Месяц(ТекДата);
тДень=День(ТекДата);
тЧас=Час(ТекДата);
тмин=Минута(ТекДата);
тСек=Секунда(ТекДата);

НужныйГод=2010;
//сформируем новыую дату
НоваяДата=Дата(НужныйГод,тМесяц,тДень,тчас,тмин,тсек);


Сообщить(НоваяДата);

Дата(число, Месяц(Дата), День(Дата))
Единственно добавить проверку на високосный год