Vahetuse järgimise aja arvutamine antud vahetuse jaoks, kasutades Microsoft Excelis VBA -d

Anonim

Selles artiklis loome kohandatud funktsiooni või UDF -i, et arvutada agentide nihkeaeg.

Selle näite toorandmed koosnevad agendi ID -st ning iga agendi päeva sisselogimis- ja väljalogimisajast. Samuti oleme määratlenud vahetuse alguse ja vahetuse lõpuaja.

Oleme vahetuse järgimise aja arvutamiseks kasutanud kohandatud funktsiooni “TimeInterval”. Selle funktsiooni sisendiks on neli parameetrit.

Funktsioon TimeInterval (sisselogimine, väljalogimine, ShiftStartTime, ShiftEndTime)

Vahetuse algusaeg on määratletud lahtris C7 ja vahetuse lõpuaeg lahtris C8.

Loogiline seletus

Vahetuse järgimise aja arvutamiseks muutsime sisselogimisaja vahetuse algusajaks. Kui sisselogimise aeg on vahetuse algusajast varasem, loetakse vahetuse algusaega sisselogimisajaks. Kui väljalogimise aeg on vahetuse lõpuajast hilisem, loetakse vahetuse lõpuaega väljalogimisajaks. Nüüd annab sisselogimis- ja väljalogimisaja erinevus vahetuse järgimiseks aega.

Palun järgige koodi allpool

 Valik Selgesõnaline funktsioon TimeInterval (sisselogimine kahekordseks, väljalogimine kahekordseks, _ ShiftStartTime kahekordseks, ShiftEndTime kaheseks) '' Kontrollimine, kas sisselogimisaeg on lühem kui väljalogimisaeg Funktsiooni lõpp Kui 'Kui sisselogimine on lühem kui vahetuse algusaeg, siis muutke sisselogimisaega vahetuse algusajaks Kui sisselogimine ShiftEndTime Siis Logi välja = ShiftEndTime TimeInterval = Logi välja - sisselogimise lõppfunktsioon 

Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.

Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile