Функция РазностьВремени(Время1, Время2);

	

	Разность = Время1 - Время2;

	

	Если Разность > 0 Тогда

		Часов = Цел(Разность / 3600);

		Минут = Цел((Разность - Часов * 3600) / 60);

		

		Возврат Дата(1, 1, 1, Часов, Минут, 0);

		

	Иначе

		Возврат Дата(1,1,1,0,0,0);

	КонецЕсли;

	

КонецФункции





//Пример использования	

Опоздание= РазностьВремени(ВремяПриезда, ВремяПодачи);   

 

// Оповестим пользователей о неактуальности данных.

// Если мы не хотим подключать обработчик ожидания,

//воспользуемся командой Windows

МинутаХ = Формат(НачалоМинуты(КонецМинуты(ТекущаяДата()+300)+1),"ДФ=HH:mm:ss");

Текст = " Внимание!"+Символ(13)+ "Данные в системе 1с ЗУП Тест будут неактуальны 5 минут!"+Символ(13)+"Не формируйте отчеты и документы до "+МинутаХ;

Соединения = ПолучитьСоединенияИнформационнойБазы();

КОМПЫ = Новый Соответствие ;

Для каждого ЭлементСоединения Из Соединения Цикл

    КОМПЫ.Вставить(ЭлементСоединения.ИмяКомпьютера);

КонецЦикла;  		 

Для  каждого Компьютер из  КОМПЫ Цикл

    СтрокаМесаги = "MSG /time:30 /server:"+ СокрЛП(Компьютер.Ключ)+" * "+Текст;

    //СтрокаМесаги = "NET SEND "+ СокрЛП(Компьютер.Ключ)+Текст;

    ЗапуститьПриложение(СтрокаМесаги);

КонецЦикла;