Изчисляване на времето за придържане към смяната за дадена смяна с помощта на VBA в Microsoft Excel

Anonim

В тази статия ще създадем персонализирана функция или UDF, за да изчислим времето за придържане към изместването за агентите.

Суровите данни за този пример се състоят от идентификатор на агента заедно с времето за влизане и излизане на всеки агент за деня. Ние също така сме дефинирали началния и крайния час на смяната.

Използвахме персонализирана функция „TimeInterval“ за изчисляване на времето за придържане към смяната. Тази функция приема четири параметъра като вход.

Функция TimeInterval (Вход, Изход, ShiftStartTime, ShiftEndTime)

Началното време на смяна е дефинирано в клетката C7, а крайното време на смяна е определено в клетката C8.

Логично обяснение

За да изчислим времето за придържане към смяната, сме променили времето за влизане в начален час на смяна. Ако времето за влизане е по -рано от началния час на смяна, тогава началният час на смяна ще се счита за време за вход. Ако времето за излизане е по -късно от края на смяната, тогава крайният час на смяната ще се счита за време за излизане. Сега разликата между времето за влизане и излизане ще даде време за придържане към смяната.

Моля, следвайте кода по -долу

 Опция Изрична функция TimeInterval (Вход като двоен, Изход като двоен, _ ShiftStartTime като двоен, ShiftEndTime като двоен) 'Проверка дали времето за влизане е по -малко от времето за излизане Ако Вход> Изход Тогава TimeInterval = "Времето за влизане трябва да бъде по -малко от времето за излизане" Изход Функция Край Ако „Ако влизането е по -малко от началния час на смяна, тогава променяте времето за влизане, за да промените началния час. 

Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.

Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта