Calcul du temps d’adhérence de décalage pour le décalage donné en utilisant VBA dans Microsoft Excel
Dans cet article, nous allons créer une fonction personnalisée ou UDF pour calculer le temps d’adhérence des équipes pour les agents.
Les données brutes de cet exemple se composent de l’ID de l’agent ainsi que de l’heure de connexion et de déconnexion de chaque agent pour la journée. Nous avons également défini l’heure de début et de fin d’équipe.
Nous avons utilisé la fonction personnalisée «TimeInterval» pour calculer le temps d’adhérence du décalage. Cette fonction prend quatre paramètres en entrée.
Fonction TimeInterval (Connexion, Déconnexion, ShiftStartTime, ShiftEndTime)
L’heure de début du quart est définie dans la cellule C7 et l’heure de fin du quart est définie dans la cellule C8.
Explication logique
Pour calculer le temps d’adhérence du quart de travail, nous avons changé l’heure de connexion en heure de début du quart. Si l’heure de connexion est antérieure à l’heure de début de l’équipe, l’heure de début de l’équipe sera considérée comme l’heure de connexion. Si l’heure de déconnexion est en retard par rapport à l’heure de fin de quart, l’heure de fin de quart sera considérée comme l’heure de déconnexion. Désormais, la différence entre le temps de connexion et le temps de déconnexion donnera le temps de respect des équipes.
Veuillez suivre ci-dessous pour le 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
Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.
Nous aimerions avoir de vos nouvelles, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]