ecxl-vba: Noget galt med min if-sætning...
If (Month(InDate) = 3) Then ' hvis måned = marts
If (Day(InDate) > 24) Then ' hvis dato > 24
If Weekday(InDate = 7, vbMonday) Then ' hvis ugedag er søndag
OutText = "Sommertid Start"
PublicHoliday = OutText
End If
End If
End If
If (Month(InDate) = 10) Then ' hvis måned = oktober
If (Day(InDate) > 24) Then ' hvis dato > 24
If Weekday(InDate = 7, vbMonday) Then ' hvis ugedag er søndag
OutText = "Sommertid Slut"
PublicHoliday = OutText
End If
End If
End If
Jeg har en function der fodres med dagens dato, og så returnerer den en tekst hvis det er en skæv helligdag eller sommertid start/slut.
Eftersom min if-sætning returnerer teksten "Sommertid Start" og "Sommertid Slut" i hele den sidste uge i marts og oktober, så må der være noget galt i mine if-sætninger - jeg kan bre ikke lige spotte hvad.
