Greenwagon
Nieuwe gebruiker
- Lid geworden
- 5 jan 2008
- Berichten
- 4
Ik wil een functie maken die een nieuwe datum geeft door een aantal dagen bij een bestaande datum op te tellen. Indien de uitkomst een zaterdag of zondag is moet de nieuwe datum de vrijdag daarvoor zijn. De volgende functie werkt echter niet. Kan iemand mij vertellen wat ik fout doe?
Code:
Function NieuweDatum(ByVal Datum As Date, ByVal AantalDagen As Integer) As Date
Dim d As Date
Dim Nummer As Integer
Nummer = Weekday(Datum, vbSunday)
If Nummer = 1 Then
Datum = DateAdd("d", AantalDagen - 2, Datum)
ElseIf Nummer = 7 Then
Datum = DateAdd("d", AantalDagen - 1, Datum)
Else
Datum = DateAdd("d", AantalDagen, Datum)
End If
d = Datum
NieuweDatum = d
End Function
Laatst bewerkt door een moderator: