Het berekenen van de nalevingstijd van de dienst voor een bepaalde dienst met behulp van VBA in Microsoft Excel

Anonim

In dit artikel zullen we een aangepaste functie of UDF maken om de nalevingstijd van de dienst voor de agenten te berekenen.

De onbewerkte gegevens voor dit voorbeeld bestaan ​​uit de agent-ID samen met de in- en uitlogtijd van elke agent voor de dag. We hebben ook de begin- en eindtijd van de dienst gedefinieerd.

We hebben de aangepaste functie "TimeInterval" gebruikt om de nalevingstijd van de ploeg te berekenen. Deze functie heeft vier parameters als invoer.

Functie TijdInterval(Aanmelden, Afmelden, ShiftStartTime, ShiftEndTime)

De starttijd van de ploeg wordt gedefinieerd in cel C7 en de eindtijd van de ploeg wordt gedefinieerd in cel C8.

Logische uitleg

Om de nalevingstijd van de ploeg te berekenen, hebben we de inlogtijd gewijzigd in de starttijd van de ploeg. Als de inlogtijd vroeger is dan de starttijd van de ploeg, wordt de starttijd van de ploeg beschouwd als inlogtijd. Als de uitlogtijd later is dan de eindtijd van de dienst, wordt de eindtijd van de dienst beschouwd als de uitlogtijd. Nu zal het verschil tussen de inlog- en uitlogtijd de nalevingstijd van de ploeg opleveren.

Volg hieronder voor de code:

 Optie Expliciete functie TimeInterval(Login As Double, Logout As Double, _ ShiftStartTime As Double, ShiftEndTime As Double) 'Controleren of de inlogtijd korter is dan de uitlogtijd If Login > Logout Then TimeInterval = "Inlogtijd moet korter zijn dan uitlogtijd" Afsluiten Functie Einde Als 'Als inloggen minder is dan de starttijd van de ploeg, dan verandert de inlogtijd in de starttijd van de ploeg If Login ShiftEndTime Then Logout = ShiftEndTime TimeInterval = Logout - Login End Function 

Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.

We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite