-- Excel soll die Stunden in diesem Zeitfenster berechnen.
z.B.: Arbeitszeit: 11:00 - 15:00
Ausgabe Zelle1: 3 Stunden (mit 25% Zuschlag)
Ausgabe Zelle2: 1 Stunde (ohne Zuschlag)
Wer kann helfen?
Danke + Gruß Kai
Option Explicit
' Beginn, Ende: Zeitraum
' Z1, Z2: überschneidung mit diesem Zeitraum
Function ZeitIn(Beginn As Date, Ende As Date, Z1 As Date, Z2 As Date) As Date
' Über Nacht: Ende +24 Std.
If Z2 < Z1 Then Z2 = Z2 + 1
If Ende < Beginn Then Ende = Ende + 1
If Beginn <= Z1 Then
If Ende <= Z1 Then ZeitIn = 0
If Ende > Z1 And Ende <= Z2 Then ZeitIn = Ende - Z1
If Ende > Z2 Then ZeitIn = Z2 - Z1
ElseIf Beginn > Z1 And Beginn <= Z2 Then
If Ende <= Z2 Then ZeitIn = Ende - Beginn
If Ende > Z2 Then ZeitIn = Z2 - Beginn
ElseIf Beginn > Z2 Then
ZeitIn = 0
End If
End Function
Anwendung z.B.:=ZeitIn("11:00";"15:00";"10:00";"14:00") 'oder entsprechend mit Zellverweisen
Die Zielzelle muss als Zeit formatiert sein.