[02/03] Skipping Dates

[jmcilhinney]

Don't use DataAdd in VB.NET.

Dim myDate As Date = Date.Today
 
'Add a week.
myDate = myDate.AddDays(7)
 
'Add a month.
myDate = myDate.AddMonths(1)
 
If (myDate.Month = 12 AndAlso myDate.Day >= 15) OrElse _
   (myDate.Month = 1 AndAlso myDate.Day <= 5) Then
    myDate = myDate.AddDays(21)
End If

You could use Date literals at the end there but the way I've done it will work for any year. You can also use variables for the days of December and January if they will vary.