Обучение: Пример сложения времени

30.12.14

Разработка - Математика и алгоритмы

Демонстрации алгоритма пересчета времени
Маленький пример показывающий каким образом можно складывать время.
Для простоты при выводе в строковом виде числа и обозначения не переводятся
в строку с учетом склонений.

пример тут http://infostart.ru/projects/2274/
Думаю особо описывать нет необходимости. По сути просто пример перевода в систему с основанием 60

//_____________________________________________________________________________
// глПересчитатьОбщееВремя(ОбщееВремя, ТекВремя)
// Параметры:
// ОбщееВремя - накапливаемое общее время
// ТекВремя - текущее значение которое накапливаем
//
// Описание:
// Производит накопление общего времени
// с учетом системы исчисления времени

Функция глПересчитатьОбщееВремя(ОбщееВремя, ТекВремя, ЧтоВозвращаем = "Строку")
Если
Найти(Строка(ОбщееВремя), " час. ") > 0 Тогда
ОбщееВремя = СтрЗаменить(ОбщееВремя, " час. ", ".");
КонецЕсли;

Если Найти(Строка(ОбщееВремя), " мин.") > 0 Тогда
ОбщееВремя = СтрЗаменить(ОбщееВремя, " мин.", "");
КонецЕсли;

ОбщееВремя = Число(ОбщееВремя);

СуммаЧасовТекЗнач = Цел(ТекВремя);
СуммаМинутТекЗнач = ТекВремя - СуммаЧасовТекЗнач;

СуммаЧасовИтог = Цел(ОбщееВремя);
СуммаМинутИтог = ОбщееВремя - СуммаЧасовИтог;

СуммаМинутВсего = (СуммаМинутТекЗнач + СуммаМинутИтог) * 100;
СуммаЧасовОтСуммыМинут = Цел(СуммаМинутВсего / 60);
СуммаМинутБезСуммыЧасовОтСуммыМинут = СуммаМинутВсего - СуммаЧасовОтСуммыМинут * 60;

ОбщееВремя = (СуммаЧасовИтог + СуммаЧасовТекЗнач + СуммаЧасовОтСуммыМинут) + (СуммаМинутБезСуммыЧасовОтСуммыМинут / 100);

Если ПустоеЗначение(ЧтоВозвращаем) = 1 Тогда
//возвращаем время в цифрах
парамВозврата = ОбщееВремя;
Иначе
//возвращаем время в тексте
Часы = Цел(ОбщееВремя);
Минуты = (ОбщееВремя - Часы) * 100;
парамВозврата = Строка(Часы) + " час. " + Строка(Минуты) + " мин.";
КонецЕсли;

Возврат парамВозврата;
КонецФункции // глПересчитатьОбщееВремя

См. также

Библиотека процедур и функций для технологической платформы "1С: Предприятие 7.7"

Универсальные функции Платформа 1С v7.7 Россия Абонемент ($m)

В библиотеку собраны различные функции по работе с документами, журналами, типами данных, строками, датой и временем, таблицами значений, Excel, файлами, XML, JSON, Http-сервисами, SMTP серверами и т.п.

1 стартмани

22.12.2023    716    9    user706545_kseg1971    0    

4

1С 7.7 и новый 1С:Контрагент

Универсальные функции Платформа 1С v7.7 Конфигурации 1cv7 Россия Бесплатно (free)

Получение реквизитов контрагентов из 1С:Контрагент для старых конфигураций под 1с 7.7.

25.04.2022    1868    zhenyat    7    

6

Печать таблицы значений в 1С 7.7 при отладке

Универсальные функции Платформа 1С v7.7 Россия Бесплатно (free)

Функция выводит таблицу значений в табличный документ. (v7.7) Особенно полезно при отладке. Не нужно вносить изменения в код, вызываем функцию как вычисляемое выражение при останове. Если таблица обрабатывается в несколько этапов, можно вывести её после каждого и визуально проследить эволюцию.

30.06.2021    4487    Zoltan_Black    11    

2

Установка принтера по умолчанию для 1С 7.7

Универсальные функции Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Установка принтера по умолчанию в 1С 7.7. Обработка может быть полезна в том случае, когда нужно установить принтер по умолчанию, а доступа к рабочему столу нет (например, терминальный режим без рабочего стола или remoteApp)

1 стартмани

13.02.2019    13332    4    alsen    3    

4

Формирование строки json в 1С: 7.7

Универсальные функции Платформа 1С v7.7 Конфигурации 1cv7 1С:Комплексная 7.7 Абонемент ($m)

Предлагается набор функций 1с 7.7 для формирования строки json стандартными средствами.

1 стартмани

10.12.2018    10163    malovandrey    5    

18

Как создать индикатор в 1С:Предприятии 7.7

Универсальные функции Работа с интерфейсом Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)

В статье дано описание создания индикатора на форме в среде разработки 1С:Предприятие 7.7 исключительно типовыми средствами.

1 стартмани

27.09.2016    18702    2    HAMMER_59    6    

2
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. AS108 151 22.05.09 01:36 Сейчас в теме
2. alexluka 13.06.09 02:45 Сейчас в теме
3. Иваныч 23 08.11.13 16:38 Сейчас в теме
Интересно!!! Мне нравится
+
Оставьте свое сообщение