Calcolo del tempo di aderenza al turno per un determinato turno utilizzando VBA in Microsoft Excel

Anonim

In questo articolo creeremo una funzione personalizzata o UDF per calcolare il tempo di aderenza al turno per gli agenti.

I dati grezzi per questo esempio sono costituiti dall'ID agente insieme all'ora di accesso e disconnessione di ciascun agente per il giorno. Abbiamo anche definito l'ora di inizio e fine turno.

Abbiamo utilizzato la funzione personalizzata "TimeInterval" per calcolare il tempo di aderenza al turno. Questa funzione accetta quattro parametri come input.

Funzione TimeInterval (Login, Logout, ShiftStartTime, ShiftEndTime)

L'ora di inizio turno è definita nella cella C7 e l'ora di fine turno è definita nella cella C8.

Spiegazione logica

Per calcolare il tempo di aderenza al turno, abbiamo modificato l'ora di accesso con l'ora di inizio del turno. Se l'orario di accesso è anticipato rispetto all'orario di inizio turno, l'orario di inizio turno verrà considerato come orario di accesso. Se l'ora di disconnessione è in ritardo rispetto all'ora di fine turno, l'ora di fine turno sarà considerata come ora di disconnessione. Ora, la differenza tra l'ora di accesso e quella di disconnessione darà il tempo di aderenza al turno.

Si prega di seguire sotto per il codice

 Opzione Funzione esplicita TimeInterval(Login As Double, Logout As Double, _ ShiftStartTime As Double, ShiftEndTime As Double) 'Verifica se il tempo di accesso è inferiore all'orario di logout If Login > Logout Then TimeInterval = "Il tempo di accesso deve essere inferiore all'orario di logout" Esci Function End If 'Se l'accesso è inferiore all'ora di inizio turno, quindi modifica l'ora di accesso all'ora di inizio turno If Login ShiftEndTime Then Logout = ShiftEndTime TimeInterval = Logout - Funzione di fine accesso 

Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.

Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica