Dim dMyDate As DateTime = DateTime.Now‘當前時間日期

DateDiff("h", C13, C3)’ 二時間差

‘日期格式

C2 = Format(dMyDate, "yyyy-MM-dd_HH:mm:ss")

DateTimePicker1.Value = dMyDate.Date

‘日期加減

DateTimePicker1.Value = DateTimePicker1.Value.AddDays(-15)

DateTimePicker2.Value = DateTimePicker2.Value.AddDays(90)

Dim dMyDate As DateTime = DateTime.Now

T1 = Format(dMyDate.AddDays(-1), "yyyy-MM-dd")

T1 = Format(dMyDate.AddMonths(-i), "yyyy-MM")

Enum myWeek

周日 = 1

周一 = 2

周二 = 3

周三 = 4

周四 = 5

周五 = 6

周六 = 7

End Enum

C1 = [Enum].Parse(GetType(myWeek), Weekday(T1)).ToString '星期

C1 = Minute(T1)’分鐘

C1 = Second (T1)’秒

T1 = T2.AddMinutes(10)’加10分鐘

T1 = T2. AddSeconds (10)’加10秒

日期判別

IsDate(oga05.Text & " 00:00:00")