1. พิมพ์ code ที่ Event Load ของฟอร์ม
Dim d, t As New DateTime()
d = DateTime.Parse(Today)
t = TimeOfDay
Dim msg As String = ""
msg &= "วันเดือนปี: " & d.ToLongDateString() & vbNewLine
msg &= "เวลา: " & t.ToLongTimeString() & vbNewLine
msg &= "วันนี้เป็นวัน : " & d.DayOfWeek().ToString() & vbNewLine
msg &= "ปีนี้เดือนกุมภาพันธ์มี 29 วัน: " & _
DateTime.IsLeapYear(d.Year) & vbNewLine
'อีกเพิ่ม 10 วัน'
d = d.AddDays(10)
msg &= "อีก 10 วันจะตรงวันที่: " & d.ToLongDateString()
MsgBox(msg)
ไม่มีความคิดเห็น:
แสดงความคิดเห็น