Die Berechnung Verschiebung Einhaltung Zeit für bestimmte Verschiebung mit VBA in Microsoft Excel
In diesem Artikel erstellen wir eine benutzerdefinierte Funktion oder UDF, um die Schichthaftungszeit für die Agenten zu berechnen.
Die Rohdaten für dieses Beispiel bestehen aus der Agenten-ID sowie der Anmelde- und Abmeldezeit jedes Agenten für den Tag. Wir haben auch die Schichtstart- und Schichtendzeit definiert.
Wir haben die benutzerdefinierte Funktion „TimeInterval“ verwendet, um die Schichthaftungszeit zu berechnen. Diese Funktion verwendet vier Parameter als Eingabe.
Funktion TimeInterval (Login, Logout, ShiftStartTime, ShiftEndTime)
Die Schichtstartzeit ist in der Zelle C7 und die Schichtendzeit in der Zelle C8 definiert.
Logische Erklärung
Um die Schichthaftungszeit zu berechnen, haben wir die Anmeldezeit in die Schichtstartzeit geändert. Wenn die Anmeldezeit vor der Schichtstartzeit liegt, wird die Schichtstartzeit als Anmeldezeit betrachtet. Wenn die Abmeldezeit zu spät als die Schichtendzeit ist, wird die Schichtendzeit als Abmeldezeit betrachtet. Der Unterschied zwischen der Anmelde- und der Abmeldezeit ergibt nun die Zeit für die Einhaltung der Schicht.
Bitte folgen Sie unten für den Code
Option Explicit Function TimeInterval(Login As Double, Logout As Double, _ ShiftStartTime As Double, ShiftEndTime As Double) 'Checking whether login time is less than logout time If Login > Logout Then TimeInterval = "Login time should be less than logout time" Exit Function End If 'If login is less than shift start time then changing login time to shift start time If Login < ShiftStartTime Then Login = ShiftStartTime 'If logout is greater than shift end time then changing logout time to shift end time If Logout > ShiftEndTime Then Logout = ShiftEndTime TimeInterval = Logout - Login End Function
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook und Facebook.
Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]