sylvester-ponte
Verenigingslid
- Lid geworden
- 19 apr 2007
- Berichten
- 6.620
een udf kun je zichzelf laten aanroepen. zie het voorbeeld van de overlap function in het voorbeeld:
kan zo iets ook met een lambda functie? ik bedoel dus dat deze zichzelf aanroept.
Code:
Function Overlap(Van1, Tot1, Van2, Tot2)
If Van1 > Tot1 Then
Overlap = Overlap(Van1, 1, Van2, Tot2) + Overlap(0, Tot1, Van2, Tot2)
Exit Function
End If
If Van2 > Tot2 Then
Overlap = Overlap(Van1, Tot1, Van2, 1) + Overlap(Van1, Tot1, 0, Tot2)
Exit Function
End If
With WorksheetFunction
Overlap = .Max(0, .Min(Tot1, Tot2) - .Max(Van1, Van2))
End With
End Function