How do I find next Tuesdays Date? - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

How do I find next Tuesdays Date?

GoDogGoGoDogGo Posts: 3Member
I need code to find the date of the first Tuesday that follows todays date.

Comments

  • dokken2dokken2 Posts: 532Member
    : I need code to find the date of the first Tuesday that follows
    : todays date.
    :
    Dim Today As Date
    Dim i As Integer

    Today = Date

    'loop thru 7 days of week
    For i = 0 To 6
    'datepart for weekday, 1=sun, 7=sat
    If DatePart("w", Today + i) = 3 Then
    MsgBox Today + i & " is next Tuesday"
    Exit For
    End If
    Next
  • GoDogGoGoDogGo Posts: 3Member
    : : I need code to find the date of the first Tuesday that follows
    : : todays date.
    : :
    : Dim Today As Date
    : Dim i As Integer
    :
    : Today = Date
    :
    : 'loop thru 7 days of week
    : For i = 0 To 6
    : 'datepart for weekday, 1=sun, 7=sat
    : If DatePart("w", Today + i) = 3 Then
    : MsgBox Today + i & " is next Tuesday"
    : Exit For
    : End If
    : Next
    :

    Much Thanks!
    Exactly what I've been looking for.

Sign In or Register to comment.