day monday

[carlosapv]

how say the monday for next week example:

if day es tuesday how say the next monday the date

EX: tuesday 29/8/00 the next monday is 4/9/00

else is thursday or friday or saturday or sunday ever say the next monday of next week

sorry my bad english

thanx

[Joacim Andersson]

Here's an example:

Dim dte As Date
Dim iAdd%
dte = InputBox("Enter a valid date")
iAdd = 8 - Weekday(dte, vbMonday)
MsgBox "Next monday is: " & DateAdd("d", iAdd, dte)

[MartinLiss]

I like Joacim's answer, but here is another way

    Dim intDay As Integer
    
    For intDay = 1 To 7
        If Format(Date + intDay, "ddd") = "Mon" Then
            MsgBox "Next Monday is " & Date + intDay
            Exit For
        End If
    Next

[Joacim Andersson]

Well Martin that assumes that the Format function will return "Mon" for monday.
That may not be True. It depends on the locals setting. My computer returns "Mån" because I'm located in Sweden.