langhåret og kompliceret IF-sætning VBA-Excel

Function InProduction(RequestDate As Date, StartDateArray As Range, EndDateArray As Range)
' function skal teste om RequestDate er større end starttidspunkt og mindre end sluttidstpunkt - for så er vi i produktion

' SDate og EDate er hhv starttid og sluttid for en produktion (en batch) hentet ind fra vores produktionsplan
Dim SDate As Date
Dim EDate As Date
Dim i As Integer ' blot det tal vi briger i vores For-løkke når vi looper igennem alle rækken af planlagte produktioner

Dim RequestDateStart As Date
Dim RequestDateEnd As Date
RequestDateStart = RequestDate ' requestdate klokken 00
RequestDateEnd = RequestDate + 1 ' requestdate klokken 24

InProduction = 0 ' sætter defaultværdi til 0 , så function returenerer 0 hvis der ikke blev fundet nogen produktion på RequestDate

For i = 1 To StartDateArray.Cells.Count ' vi løber vores StartDateArray igennem med en For-løkke
  If IsDate(StartDateArray.Cells(i, 1)) Then ' hvis der findes en dato i array
    SDate = StartDateArray.Cells(i, 1) ' hvis der findes en startdato i StartDateArray, så putter vi værdien i variablen SDate
    EDate = EndDateArray.Cells(i, 1)  ' og så henter vi slutdato på samme række i EndDateArray
   
'Herunder tjekkes for 3 scenarier, hvor batch (produktion) berører det døgn der forespørges på
'det kan i teorien forekomme at flere af scenarierne forekommer i samme døgn,
'derfor skal resultatet i det ene scenarie lægges sammen med resultatet af det næste scenarie hvis de begge forekommer i det døgn der forespørges på

'Hvis en batch er startet tidligere end dette døgn, men sluttidspunktet ligger i dette døgn. 
    If SDate <= RequestDateStart Then 'Hvis en batch er startet tidligere end dette døgn
      If EDate >= RequestDateStart Then ' men sluttidspunktet rækker ind i dette døgn.
      If EDate <= RequestDateEnd Then ' men sluttidspunktet rækker ind i dette døgn.
        InProduction = InProduction + DateDiff("h", RequestDateStart, EDate)  ' og vi vil returnere værdien i timer
      End If
      End If
    End If

'Hvis en batch er så kort at både start og slut ligger i dette døgn. 
    If SDate >= RequestDateStart Then 'Hvis en batch er startet i dette døgn
      If EDate <= RequestDateEnd Then 'Hvis en batch er startet i dette døgn
        InProduction = InProduction + DateDiff("h", SDate, EDate)  ' og vi beregner værdien i timer
      End If ' slut på hvis både starten og slutningen af Requestdate-døgnet er større end starttidspunkt, så har vi produktion (hele døgnet)
    End If ' slut på hvis starten af Requestdate-døgnet er større end starttidspunkt, så har vi produktion (helt eller delvist døgn)

'Hvis en batch starter i dette døgn men først slutter senere i et andet døgn. 
    If SDate >= RequestDateStart Then 'Hvis en batch er startet i dette døgn.
      If SDate <= RequestDateEnd Then 'Hvis en batch er startet i dette døgn.
      If EDate >= RequestDateEnd Then ' men sluttidspunktet ligger senere end dette døgn.
        InProduction = InProduction + DateDiff("h", SDate, RequestDateEnd)  ' og vi beregner værdien i timer
      End If
      End If
    End If
 
  'Hvis en batch er så lang at både start og slut ligger hhv før og efter dette døgn. 
    If SDate <= RequestDateStart Then 'Hvis en batch er startet før dette døgn
      If EDate >= RequestDateEnd Then 'Hvis en batch slutter efter dette døgn
        InProduction = DateDiff("h", RequestDateStart, RequestDateEnd)  ' og vi beregner værdien i timer
      End If ' slut på hvis både starten og slutningen af Requestdate-døgnet er større end starttidspunkt, så har vi produktion (hele døgnet)
    End If ' slut på hvis starten af Requestdate-døgnet er større end starttidspunkt, så har vi produktion (helt eller delvist døgn)

  End If ' slut på hvis der findes en dato
Next i

InProduction = InProduction / 24 ' omregner værdien til dage, så værdien 1 for hele det døgn der forespørges på og 0,5 for halvdelen af døgnet

End Function