Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ' แสดงวันที่และเวลา
        MsgBox(Now) 

        ' แสดงวันที่
        MsgBox(Now.Today)

End Sub


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