Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Function Maandhuur(Dag, Van1, Tot1, Huur1, _
Optional Van2 = 0, Optional Tot2, Optional Huur2, _
Optional Van3 = 0, Optional Tot3, Optional Huur3, _
Optional Van4 = 0, Optional Tot4, Optional Huur4, _
Optional Van5 = 0, Optional Tot5, Optional Huur5)
If Van1 <> 0 Then If DatumInMaandenVanTot(Van1.Value, Tot1.Value, Dag.Value) Then Maandhuur = Huur1: Exit Function
If Van2 <> 0 Then If DatumInMaandenVanTot(Van2.Value, Tot2.Value, Dag.Value) Then Maandhuur = Huur2: Exit Function
If Van3 <> 0 Then If DatumInMaandenVanTot(Van3.Value, Tot3.Value, Dag.Value) Then Maandhuur = Huur3: Exit Function
If Van4 <> 0 Then If DatumInMaandenVanTot(Van4.Value, Tot4.Value, Dag.Value) Then Maandhuur = Huur4: Exit Function
If Van5 <> 0 Then If DatumInMaandenVanTot(Van4.Value, Tot5.Value, Dag.Value) Then Maandhuur = Huur5: Exit Function
Maandhuur = "<??>"
End Function
Function DatumInMaandenVanTot(Van As Date, Tot As Date, Dag As Date) As Boolean
Van = DateSerial(Year(Van), Month(Van), 1) 'eerste dag van de eerste maand
Tot = DateSerial(Year(Tot), Month(Tot) + 1, 1) - 1 'laatste dag van de laatste maand
If Dag >= Van And Dag <= Tot Then
DatumInMaandenVanTot = True
Else
DatumInMaandenVanTot = False
End If
End Function
