Код

	НачВремя=_idtostr((ЧЧ1*3600+ММ1*60+СС1)*10000);
	КонВремя=_idtostr((ЧЧ2*3600+ММ2*60+СС2)*10000);
	Запрос.УстановитьТекстовыйПараметр("НачДата",НачДата);
	Запрос.УстановитьТекстовыйПараметр("КонДата",КонДата);
	Запрос.УстановитьТекстовыйПараметр("НачВремя",НачВремя);
	Запрос.УстановитьТекстовыйПараметр("КонВремя",КонВремя);
	ТекстЗапроса = "
	|SELECT
	|	Журн.DATE as Дата,
	|	Журн.TIME as Время
	|FROM
	|	1SJOURN as Журн
	|WHERE
	|	Журн.DATE BETWEEN :НачДата~~ and :КонДата~~
	|and
	|	Журн.TIME BETWEEN IIF(Журн.DATE=:НачДата~~,:НачВремя,'000000')
	|	and IIF(Журн.DATE=:КонДата~~,:КонВремя,'EAEIO0')
	|";