Calculul timpului de aderență la schimbare pentru o schimbare dată utilizând VBA în Microsoft Excel

Anonim

În acest articol, vom crea o funcție personalizată sau UDF pentru a calcula timpul de aderență la schimbare pentru agenți.

Datele brute pentru acest exemplu constau din ID-ul agentului împreună cu timpul de conectare și deconectare a fiecărui agent pentru ziua respectivă. De asemenea, am definit ora de începere și de sfârșit a schimbării.

Am folosit funcția personalizată „TimeInterval” pentru a calcula timpul de aderență la schimbare. Această funcție ia patru parametri ca intrare.

Funcție TimeInterval (Conectare, Deconectare, ShiftStartTime, ShiftEndTime)

Timpul de început al schimbării este definit în celula C7, iar timpul de sfârșit al schimbării este definit în celula C8.

Explicație logică

Pentru a calcula timpul de aderență la schimbare, am schimbat ora de conectare pentru a începe ora de schimbare. Dacă ora de conectare este mai devreme decât ora de începere a schimbării, atunci ora de începere a schimbării va fi considerată ca timp de conectare. Dacă timpul de deconectare este mai târziu decât ora de încheiere a schimbării, atunci ora de încheiere a schimbării va fi considerată ca timp de deconectare. Acum, diferența dintre timpul de conectare și deconectare va da timp de aderență la schimbare.

Vă rugăm să urmați codul de mai jos

 Opțiune Funcție explicită TimeInterval (Conectare ca dublă, Deconectare ca dublă, _ ShiftStartTime Ca dublă, ShiftEndTime ca dublă) 'Verificarea dacă timpul de conectare este mai mic decât timpul de deconectare Dacă Conectare> Deconectare, atunci TimeInterval = "Timpul de conectare ar trebui să fie mai mic decât timpul de deconectare" Ieșire Funcția Sfârșit Dacă „Dacă autentificarea este mai mică decât ora de începere a schimbării, atunci schimbarea timpului de conectare pentru a schimba ora de începere. 

Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.

Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail