Уведомления
Очистить все

Рассчитываем продолжительнось времени, длительность времени, разницу во времени, количество времени между началом и окончанием в 1С

1 Записи
1 Пользователи
0 Likes
352 Просмотры
96-150 Okolokompa Форум
(@sadovod)
Prominent Member
Присоединился: 4 года назад
Записи: 258
Создатель темы  

Функция 1

Функция РазницаВремени(ВремяНачала, ВремяОкончания)

    РазницаВрем = ВремяОкончания - ВремяНачала;

    Если РазницаВрем > 0 Тогда

        Часов = Цел(РазницаВрем / 3600);
        Минут = Цел((РазницаВрем - Часов * 3600) / 60);
        Секунд = РазницаВрем - Часов * 3600 - Минут * 60;

        Возврат "" + Часов + "ч. " + Минут + "м. " +  Секунд + "с.";

    Иначе
        Возврат "" + РазницаВрем + "с.";
    КонецЕсли;

КонецФункции

Функция 2

Функция ПолучитьВремяВыполненияСтрока(ВремяНачала)

    РазницаВСекундах = ТекущаяДата() - ВремяНачала;
    РазницаВМинутах = Цел(РазницаВСекундах / 60);
    РазницаВЧасах = Цел(РазницаВМинутах / 60);
    РазницаВДнях = Цел(РазницаВЧасах / 24);
    
    Возврат Строка(РазницаВДнях)+" дн. "+ Строка(РазницаВЧасах-РазницаВДнях*24)+" ч. "+Строка(РазницаВМинутах-РазницаВЧасах*60)+" мин. "+Строка(РазницаВСекундах-РазницаВМинутах*60)+" сек.";

КонецФункции

   
Цитата
Поделиться: