Overlappen uren binnen tijdsvak

[Meisternl]

Goedemorgen allen,

Het lijkt bijna een onmogelijke uitdaging, maar dat is vast niet zo ;-).

Ik wil graag overlappende tijden berekenen van een dienst. Bijvoorbeeld het tijdsvenster is 21:00 tot 05:00 uur en de werkelijke
tijden zijn van 20:00 tot 22:00 uur, dan is er 1 uur die binnen het tijdsvenster valt.

Nu heb ik al een redelijke formule staan die dit berekent, maar zodra de tijden helemaal buiten het tijdsvenster vallen, dan is het
resultaat 8 uur. Dit zou op 0 uur moeten uitkomen, maar dat krijg ik dus niet voor elkaar.

Heeft iemand de oplossing?

Alvast bedankt!

Michel

 

[cow18]

gebruik uren > 24 als je in de volgende dag zit
of anders de groene kolom

 

[AHulpje]

Of een macro, zie Function Overlap.

 

[cow18]

Function Overlap2(TVVan, TVTot, Van, Tot)
        Overlap2 = Application.Max(0, Application.Min(TVTot - (TVTot < TVVan), Tot - (Tot < Van)) - Application.Max(TVVan, Van))
End Function

 

[AHulpje]

@cow18
Heel erg mooi!
Maar dan zou ik verwachten dat de formule

=MAX(0;MIN($I$1 - ($I$1 < $H$1); C2 - (C2 < B2)) - MAX($H$1;B2))

ook zou moeten werken, maar die levert alleen 00:00 op.

 

[Enigmasmurf]

@ AHulpje,

Enkel op het eerste zicht zou je dat verwachten. Maak er eens dit van:

=MAX(0;MIN($I$1 + ($I$1 < $H$1); C2 + (C2 < B2)) - MAX($H$1;B2))

Toch ben ik er zeker van dat je er zelf achter komt wat hiervoor de reden is!

 

[JEC.]

Illustratie

Sub jec()
Debug.Print 1 - (1 = 1)
Debug.Print 1 + (1 = 1)
End Sub

 

[AHulpje]

Dank Enigmasmurf en JEC, helemaal duidelijk.
Dan roep ik de oplossing van Enigmasmurf (gebaseerd op die van cow18) uit tot de mooiste, mooie formule zonder dat een macro nodig is.

 

[sylvester-ponte]

AHulpje, die van Smurf is helemaal oké in Michel zijn bestand.

 

[Meisternl]

Bedankt voor jullie hulp. Het bestand werkt aan mijn kant!

Ontzettend blij mee!