Доброго времени суток! есть запрос который высчитывает разность даст между датами:
ВЫБРАТЬ
ПростойВагонаСрезПоследних.НомерВагона,
ПростойВагонаСрезПоследних.ПрибытияВагона,
ПростойВагонаСрезПоследних.ВозвратПВст
ПОМЕСТИТЬ ВТ_РСПростой
ИЗ
РегистрСведений.ПростойВагона.СрезПоследних(&Период, ) КАК ПростойВагонаСрезПоследних
;
////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
ВТ_РСПростой.НомерВагона,
ВТ_РСПростой.ПрибытияВагона,
ВТ_РСПростой.ВозвратПВстКраматорск КАК СдачаНаСтКраматорск,
ВЫБОР
КОГДА ВТ_РСПростой.ПрибытияВагона <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
И ВТ_РСПростой.ВозвратПВстКраматорск <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
ТОГДА РАЗНОСТЬДАТ(ВТ_РСПростой.ПрибытияВагона, ВТ_РСПростой.ВозвратПВст, ЧАС)
ИНАЧЕ ВЫБОР
КОГДА ВТ_РСПростой.ПрибытияВагона <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
И ВТ_РСПростой.ВозвратПВст= ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
ТОГДА РАЗНОСТЬДАТ(ВТ_РСПростой.ПрибытияВагона, &Период, ЧАС)
ИНАЧЕ 0
КОНЕЦ
КОНЕЦ КАК ВсегоЧасовПростоя,
ВЫБОР
КОГДА ВТ_РСПростой.ПрибытияВагона <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
И ВТ_РСПростой.ВозвратПВст <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
ТОГДА РАЗНОСТЬДАТ(ВТ_РСПростой.ПрибытияВагона, ВТ_РСПростой.ВозвратПВст, СЕКУНДА)
ИНАЧЕ ВЫБОР
КОГДА ВТ_РСПростой.ПрибытияВагона <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
И ВТ_РСПростой.ВозвратПВст = ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
ТОГДА РАЗНОСТЬДАТ(ВТ_РСПростой.ПрибытияВагона, &Период, СЕКУНДА)
ИНАЧЕ 0
КОНЕЦ
КОНЕЦ КАК ВсегоСекундПростоя,
"" КАК ВремяПростоя
ИЗ
ВТ_РСПростой КАК ВТ_РСПростой
Вот функция которая разбивает секунды на время
Функция ПолучитьВремя(Секунды) Экспорт;
Часов=Цел(Секунды/3600);
СекОстМин= Секунды%3600;
Минут=Цел(СекОстМин/60);
Сек=СекОстМин%60;
Попытка
Если Число(Часов)<10 Тогда
Часов="0"+СокрЛП(Часов);
Иначе
Часов=СокрЛП(Часов);
КонецЕсли;
Если Число(Минут)<10 Тогда
Минут="0"+СокрЛП(Минут);
Иначе
Минут=СокрЛП(Минут);
КонецЕсли;
Если Число(Сек)<10 Тогда
Сек="0"+СокрЛП(Сек);
Иначе
Сек=СокрЛП(Сек);
КонецЕсли;
Время = Часов + ":" + Минут + ":" + Сек;
Возврат Время;
Исключение
Сообщить(ИнформацияОбОшибке().Описание,СтатусСообщения.Важное);
Возврат Неопределено;
КонецПопытки;
КонецФункции
http://pro1c.org.ua/redirect.php?http://Особенности%20функции%20языка%20запросов%20РАЗНОСТЬДАТ
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua