my 1C. Полезная информация.

Процедура ПриостановитьВыполнение(СекЖдать=0,МожноПрервать=0,Сообщение="Ждите ...")
     Перем ч,м,с;
     ТекущееВремя(ч,м,с);
     ТекСек=(ч*3600)+(м*60)+с;
     КонСек=ТекСек+СекЖдать;
     Пока СекЖдать>0 Цикл
          Предупреждение(Сообщение,СекЖдать);
          Если (МожноПрервать<>0) тогда
               Прервать;
          КонецЕсли;
          ТекущееВремя(ч,м,с);
          ТекСек=(ч*3600)+(м*60)+с;
          СекЖдать=Макс(КонСек-ТекСек,0);
     КонецЦикла;
КонецПроцедуры


	На PORTA.ru ОГРОМНЫЙ выбор портативной техники: MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки