Всем привет может есть у кого функция округление даты и времени?
пример того что хочется получить:

Пример 1

дата = 01.02.2013 20:49:99;
ОркуглятьДо = 30; //30 Минут

Округлитьвремя(дата, ОркуглятьДо );

на выходе
01.02.2013 21:00:00;

Пример 2
дата = 01.02.2013 20:16:99;
ОркуглятьДо = 30; //30 Минут

Округлитьвремя(дата, ОркуглятьДо );

на выходе
01.02.2013 20:30:00;

Функция Округлитьвремя(ТекДата,Шаг)
    Если Шаг = 0 Тогда
        Шаг = 60
    Иначе         
    КонецЕсли;
    
    Разница = ТекДата-НачалоЧаса(ТекДата);
    
    Пока  Разница >= Шаг*60 Цикл
        Разница = Разница - Шаг*60
    КонецЦикла;
    
    Если Разница/Шаг>=0.5 Тогда
        НоваяДата = ТекДата + шаг*60-Разница;        
    Иначе
        НоваяДата = ТекДата - Разница;
    КонецЕсли;
        
        
    Возврат НоваяДата     
КонецФункции

Правильность сам проверь

(1) Спасибо!