บวก ลบ วันที่ DateAdd in vb.net

แสดงการเพิ่มวันที่และช่วงเวลา ใน vb.net

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'ต้องการทราบว่า นับจากวันนี้อีก 10 วันเป็นวันอะไร
        MsgBox(DateAdd(DateInterval.Day, 10, Today))

        ' หรือ ต้องการทราบว่า ณ วันที่ กำนดไว้ อีก 10 วันเป็นวันอะไร
        Dim D1 As Date = "#01/01/2013 10:11:12#"
        MsgBox(DateAdd(DateInterval.Day, 10, D1))


       ' หรือ ต้องการทราบว่า ณ วันที่ กำนดไว้ ย้อนหลัก 10 วันเป็นวันอะไร
        Dim D1 As Date = "#01/01/2013 10:11:12#"
        MsgBox(DateAdd(DateInterval.Day, -10, D1))


        ' หรือ ต้องการทราบว่า ณ วันที่และเวลา กำนดไว้ อีก 10 ชั่วโมง เป็นเวลาเท่าไร
        MsgBox(DateAdd(DateInterval.Hour, 10, D1))
End Sub

นอกจากตัวอย่างนี้แล้วยังมีให้เลือกอีกมาก ดังนี้

** บทความที่เกี่ยวข้อง **
แสดงรูปแบบวันที่ ค.ศ. และ พ.ศ. VB.NET
Convers String to Date in vb.net
DateAdd แสดงการเพิ่มวันที่และช่วงเวลา
บวก ลบ วันที่ / DateDiff เปรียบเทียบวันที่และเวลา
FormatDateTime
หาวันนี้ปัจจุบัน DateNow
รูปแบบวันที่ เพิ่มเติม