Код 1C v 8.2 УП

 	КолМин = 0;

	НачДата = Дата1;

	Пока НачДата < Дата2 Цикл 

		// Запускаем цикл с шагом в 1 мин

		НачДата = НачДата + 60;

		//Пребразуем дату в строку

		СтрТекДата = Формат(НачДата, "ДФ=yyyyMMddHHmm");

		//часы и минуты преобразуем в число, берем правые 4 знака строки и делаем их числом

		// т.е. 08:00 будет равно 800 и тд....

		ТекВремя = Число(Прав(СтрТекДата,4));

		// в цикле сравниваем на больше - меньше и накпливаем минуты если условие верно		

		// 800 в данном случае время - 08:00 

		// 2200 в данном случае время - 22:00 

		Если (ТекВремя > 800) и (ТекВремя <= 2200) Тогда

			//накапливаем минуты

			КолМин = КолМин + 1;

		КонецЕсли;

	КонецЦикла;

	//получим количество часов из интервала с исключением промежутка с 22:00 по 08:00

	Сообщить(КолМин/60);   

Была поставлена задача посчитать время простоя автомобиля в часах за интервал, но при этом исключить ночное время, придумал такое решение...
Может комуто пригодится

Замечание: В Excel разделителем дробной части считается символ ",". Поэтому перед сохранением таблицы 1С в формате Excel замените в ней другой разделитель (например ".") на ",". Иначе в Excel с этими числами не удастся произвести вычисления, или они вообще не будут отображаться как числа. Например, в таблице 1С "15.2" отобразится в Excel как "15.фев".

Для 8.х заменить СоздатьОбъект( на Новый COMОбъект(

Чтение (Получение) данных из Excel
Доступ из 1С к Excel производится посредством OLE. Например, код

Код 1C v 7.x

 Попытка

 Эксель = СоздатьОбъект("Excel.Application");

Исключение

 Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!");

 Возврат;

КонецПопытки;

позволит получить доступ через переменную "Эксель" к запущенному приложению Excel. А далее уже можно получить доступ к книге (файлу), листу и ячейке с данными.Чтобы открыть книгу (файл)

Код 1C v 7.x

 Книга = Эксель.WorkBooks.Open(ПутьКФайлу);

//ПутьКФайлу - полный путь к файлу книги Excel.



//Выбор листа книги для работы с ним:

Лист = Книга.WorkSheets(НомерЛиста);

//или

Лист = Книга.WorkSheets(ИмяЛиста);

// где НомерЛиста - номер листа в книге, ИмяЛиста - имя листа в книге.



// Получение значения ячейки листа:

Значение = Лист.Cells(НомерСтроки, НомерКолонки).Value;

// где НомерСтроки, НомерКолонки - номер строки и номер колонки, на пересечении которых находится ячейка.

Важно: не забывайте поле выполнения нужных действий добавлять код

Код 1C v 7.x

 Эксель.Quit(); 

, иначе запущенный процесс останется незавершенным и будет занимать память и процессор компьютера.

Вывод данных в Excel
Для вывода (выгрузки) данных в Excel необходимо либо открыть существующую книгу, либо создать новую, и выбрать рабочий лист для вывода данных. Открытие существующей книги описано выше, а для создания новой книги нужно использовать следующий код:

Код 1C v 7.x

 Попытка

 Эксель = СоздатьОбъект("Excel.Application");

Исключение

 Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!");

 Возврат;

КонецПопытки;



Книга = Эксель.WorkBooks.Add();

Так как при создании книги в Excel автоматически создаются листы (Сервис->Параметры->Общие->Листов в новой книге), то нужно лишь произвести выбор листа, с которым будет вестись работа:

Код 1C v 7.x

 Лист = Книга.WorkSheets(НомерЛиста);



// либо добавить в книгу новый лист, если необходимо:

Лист = Книга.Sheets.Add();

Следующим шагом будет установка значения ячейки:

Код 1C v 7.x

 Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение;

// где НомерСтроки, НомерКолонки - номер строки и номер колонки, на пересечении которых находится ячейка.

И в конце нужно произвести запись созданной книги:

Код 1C v 7.x

 Попытка

 Книга.SaveAs(ПутьКФайлу);

Исключение

 Сообщить(ОписаниеОшибки()+" Файл не сохранен!");

 Возврат;

КонецПопытки;

// где ПутьКФайлу - полный путь к файлу книги Excel (включая имя).

Важно: не забывайте, что в имени файлов не должно содержаться символов \ / : * ? " > <

После выхода платформы 8.2.11 появилась задача установить на один физический сервер несколько серверов приложений 1С 8.2 - 8.2.10 и 8.2.11. Информацию как это сделать в документации по 1С я не нашел, более того, говорилось о том, что второй сервер возможно запускать только в ручном режиме.

Решить этот вопрос помогла сторонняя утилита создания сервисов Windows ( Скачивать файлы может только зарегистрированный пользователь! ).

Для начала необходимо распаковать архив в какую-нибудь папку, зайти в нее командной строкой и запустить команду создания сервиса, например:
"INSTSRV "Агент сервера 8.2.11" "C:\Program Files\1cv82\8.2.11.229\bin\ragent.exe"", Где Агент сервера 8.2.11 - придуманное имя сервиса. Если всё сделано правильно, то появится сообщение, подтверждающее успешное создание сервиса:


Теперь зайдите в Администрирование - Службы (Services). Находите только что созданную службу, двойной клик вызывает свойства сервиса. На первой вкладке можно выбрать параметры запуска - Automatic (автоматически при загрузке компьютера), Manual (Вручную) и Disabled (отключено). Для работы созданного сервиса в отдельном окне необходимо отметить на второй вкладке (Вход в систему) пункт Allow Service to Interact with Desktop (Разрешить взаимодействие с рабочим столом) + указать параметры входа в систему.

Следующим шагом является редактирование реестра. Запускаем редактор реестра Regedit. Ищем строку "C:\Program Files\1cv82\8.2.11.229\bin\ragent.exe" и меняем ее на правильную команду запуска с параметрами, например: ""C:\Program Files\1cv82\8.2.11.229\bin\ragent.exe" /Debug -srvc -agent -regport 11641 -port 11640 -range 11660:11691 -d "C:\Program Files\1cv82\srvinfo2""

Запустить сервис, если он не отключен, можно несколькими способами, во-первых через командную строку: Net Start ServiceName - где SеrviceName - имя Вашего сервиса. И другим способом - непосредственно через апплет административной панели - службы.

Чтобы удалить сервис, его сначала необходимо остановить: net stop ServiceName, затем опять же в коммандной строке выполнить команду INSTSRV ServiceName remove.


P.S. - информация для "особо умных" скептиков:
На http://users.v8.1c.ru/Adm3413.aspx цитата:
Установка нового экземпляра сервера 1С:Предприятия 8.1/8.2 при работающем сервере 1С:Предприятия той же версии
В 1С:Предприятии отсутствуют штатные возможности по регистрации нескольких экземпляров сервера 1С:Предприятия одной версии (8.1 или 8.2).

Если после установки предполагается запуск нового экземпляра сервера, а не простое обновление версии 1С:Предприятия, то при установке 1С:Предприятия с теми же первыми двумя цифрами номера версии не следует регистрировать сервер 1С:Предприятия как сервис.

Дополнительные экземпляры сервера 1С:Предприятия могут быть запущены только из командной строки. При этом важно, чтобы они различались не только портами, но и каталогами реестра кластера.

Автор статьи: albochkov