Maiņas ievērošanas laika aprēķināšana konkrētai maiņai, izmantojot VBA programmā Microsoft Excel

Anonim

Šajā rakstā mēs izveidosim pielāgotu funkciju vai UDF, lai aprēķinātu aģentu maiņas ievērošanas laiku.

Šajā piemērā neapstrādātos datus veido aģenta ID, kā arī katra aģenta pieteikšanās un izrakstīšanās laiks dienā. Mēs esam definējuši arī maiņas sākuma un maiņas beigu laiku.

Mēs esam izmantojuši pielāgotu funkciju “TimeInterval”, lai aprēķinātu maiņu ievērošanas laiku. Šī funkcija ievada četrus parametrus.

Funkcijas TimeInterval (pieteikšanās, izrakstīšanās, ShiftStartTime, ShiftEndTime)

Maiņas sākuma laiks ir definēts šūnā C7, un maiņas beigu laiks ir definēts šūnā C8.

Loģisks skaidrojums

Lai aprēķinātu maiņu ievērošanas laiku, mēs esam mainījuši pieteikšanās laiku uz maiņas sākuma laiku. Ja pieteikšanās laiks ir agrāks par maiņas sākuma laiku, tad maiņas sākuma laiks tiks uzskatīts par pieteikšanās laiku. Ja izrakstīšanās laiks ir vēlāks nekā maiņas beigu laiks, maiņas beigu laiks tiks uzskatīts par izrakstīšanās laiku. Tagad atšķirība starp pieteikšanās un izrakstīšanās laiku nodrošinās maiņas ievērošanas laiku.

Lūdzu, sekojiet tālāk norādītajam kodam

 Opcija Explicit Function TimeInterval (Pieteikšanās kā dubultā, Izrakstīties kā dubultā, _ ShiftStartTime kā Dubultā, ShiftEndTime kā Dubultā) 'Pārbaude, vai pieteikšanās laiks ir mazāks par izrakstīšanās laiku. Funkcijas beigas Ja 'Ja pieteikšanās ir mazāka par maiņas sākuma laiku, tad mainiet pieteikšanās laiku uz maiņas sākuma laiku. 

Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.

Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē