Date.AddMonths
Public Class Tester Public Shared Sub Main Dim rightNow As Date = Now Console.WriteLine("RightNow: " & rightNow.ToString) Console.WriteLine("RightNow.AddYears(2): " & rightNow.AddYears(2)) Console.WriteLine("RightNow.AddMonths(3): " & rightNow.AddMonths(3)) Console.WriteLine("RightNow.AddDays(4): " & rightNow.AddDays(4)) End Sub End Class