VB.NET日期/时间类型值加减运算

    Private Sub AddDateTime()


        Dim dtNow As Date = Now()
        MsgBox(dtNow)


        dtNow = dtNow.AddYears(20)
        MsgBox(dtNow) the Date object provides for simple manipulation that allows you to add and subtract date/time values in VB.NET.


        dtNow = dtNow.AddMonths(10)
        MsgBox(dtNow)


        dtNow = dtNow.AddDays(3)
        MsgBox(dtNow)


        dtNow = dtNow.AddHours(5)
        MsgBox(dtNow)


        dtNow = dtNow.AddMinutes(2)
        MsgBox(dtNow)


        dtNow = dtNow.AddSeconds(6)
        MsgBox(dtNow)


        dtNow = dtNow.AddMilliseconds(4)
        MsgBox(dtNow)


        dtNow = dtNow.AddYears(-2)
        MsgBox(dtNow)


    End Sub