helpf.pro
Регистрация
 0 
Распечатать

Как показать период времени в формате hh:mm:ss

// Показать период времени (затраченного на обработку) в формате hh:mm:ss
ВремяСтарта = ТекущаяДата();
// ... Далее выполняется нужная обработка ...
ЗатраченоСекунд = ТекущаяДата() - ВремяСтарта;

Час_Мин_Сек = Строка(Формат(ЗатраченоСекунд/3600,"ЧЦ=2;ЧН=;ЧВН=") + ":"
+ Формат(ЗатраченоСекунд%3600/60,"ЧЦ=2;ЧН=;ЧВН=") + ":"
+ Формат(ЗатраченоСекунд%60,"ЧЦ=2;ЧН=;ЧВН="));


// Например, если ЗатраченоСекунд = 3723, то Час_Мин_Сек = "01:02:03"
Разместил:   Версии: |  Дата:   Прочитано: 10986
 0 
Распечатать
Возможно, вас также заинтересует
Выгрузка форматированного документа 1С на свой сайт 2
Пользователи в 1с ведут описание объектов, которые редактируются в объекте ФорматированныйДокумент. Необходимо обеспечить выгрузку форматированного документа на фтп. Для решения этой задачи воспользуемся методом форматированного документа ПолучитьHT
Загрузка данных из CSV файла 5
// выберем CSV файл ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); ДиалогВыбора.Заголовок = “Выберите файл”; Если ДиалогВыбора.Выбрать() Тогда ИмяФайла = ДиалогВыбора.ПолноеИмяФайла; КонецЕсли; //Обработка данных из
Как добавить нули к значению или строке в 1С 0
Функция ДобавитьНули(Значение, НужнаяДлинаЗначения) Значение = СтрЗаменить(Формат(Значение, " ЧГ=" ), " " , " " ); НадоНулей = НужнаяДлинаЗначения - СтрДлина(Значение); ВедущиеНули = Формат(0," ЧЦ=" +НадоНулей+" ;ЧН=; ЧВН=; ЧГ=0" ); Возврат
Как дополнить число лидирующими нулями (000851) ? 18
Необходимо, чтобы из числа 7 получалось 0007, из 851 получалось 000851 и т. д. Для этого можно использовать функцию встроенного языка Формат(). Например: ИсходноеЧисло = 13; Результат = Формат(ИсходноеЧисло, " ЧЦ=5; ЧВН=; ЧГ=0" ); //Результа
Как загрузить данные из Access в 1С ? 5
Загружаем данные из Access в 1С Файл = " C:filesdemo.mdb" ; //СтрокаПодключения = " Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + " ; Extended Properties=" " Excel 8.0;HDR=NO;" " " ; СтрокаПодключения = " Provider=Microsoft.Jet
Посмотреть все результаты поиска похожих
Комментарии
olberd
15.05.2015 20:12Комментарий: 2
olberd

Здесь ошибка, из-за округления "ЧЦ=2" 

Час_Мин_Сек = Строка(Формат(ЗатраченоСекунд/3600,"ЧЦ=2;ЧН=;ЧВН=") + ":"

+ Формат(ЗатраченоСекунд%3600/60,"ЧЦ=2;ЧН=;ЧВН=") + ":"

+ Формат(ЗатраченоСекунд%60,"ЧЦ=2;ЧН=;ЧВН="));

Надо так (если без секунд):

Час_Мин_Сек = Строка(Формат(ЗатраченоСекунд/3600-0.5,"ЧЦ=2;ЧН=;ЧВН=") + ":"

+ Формат(ЗатраченоСекунд%3600/60-0.5,"ЧЦ=2;ЧН=;ЧВН="));

E_Migachev
24.10.2009 22:16Комментарий: 1
E_Migachev
), спасибо!
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.