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")
原文地址:https://www.cnblogs.com/leme-chen/p/9289184.html
时间: 2024-10-04 06:25:08