Datum auf nächsten Montag setzen, falls Samstag oder Sonntag

[Primo Centurio]

Hallo zusammen ich schon wieder

Ich nehme an, dass ihr mir das schnelle beantworten könnt

Code:

If Weekday(dDatum) = 1 Or Weekday(dDatum) = 7 Then

Wie bringe ich es hin, dass mir der nächsten Montag angegeben wird, falls "dDatum" ein Samstag oder Sonntag ist?

Beispiel:

02.11.19 - Samstag (dDatum)  --->  04.11.19 - Montag (dDatum)

Gruss Primo

[EbyAS]

Hallo,
es existieren verschiedene Möglichkeiten u.a. :

Select Case Weekday(dDatum)
    Case 1
       dDatum = dDatum + 1
    Case 7
       dDatum = dDatum + 2
End Select

[Primo Centurio]

Hallo Armin

Herzlichen Dank für deine schnelle Hilfe.

Der Code hat wunderbar funktioniert   :)

Freundliche Grüsse

Primi