VBA日期时间函数

VBScript日期和时间函数帮助开发人员将日期和时间从一种格式转换为另一种格式，或以适合特定条件的格式表示日期或时间值。

一、日期函数

1、Dateadd()

Private Sub Constant_demo_Click()
   ' Positive Interal
   date1 = "1 Jan 2013"
   date1 = CDate(date1)
   MsgBox ("Line 0 : " & date1)
   MsgBox ("Line 1 : " & DateAdd("yyyy", 1, date1))
'   MsgBox ("Line 2 : " & DateAdd("q", 1, date1))
'   MsgBox ("Line 3 : " & DateAdd("m", 1, date1))
   MsgBox ("Line 4 : " & DateAdd("y", 1, date1))
   MsgBox ("Line 5 : " & DateAdd("d", 1, date1))
'   MsgBox ("Line 6 : " & DateAdd("w", 1, date1))
'   MsgBox ("Line 7 : " & DateAdd("ww", 1, date1))
'   MsgBox ("Line 8 : " & DateAdd("h", 1, "01-Jan-2013 12:00:00"))
'   MsgBox ("Line 9 : " & DateAdd("n", 1, "01-Jan-2013 12:00:00"))
'   MsgBox ("Line 10 : " & DateAdd("s", 1, "01-Jan-2013 12:00:00"))
'
'   ' Negative Interval
'   MsgBox ("Line 11 : " & DateAdd("yyyy", -1, date1))
'   MsgBox ("Line 12 : " & DateAdd("q", -1, date1))
'   MsgBox ("Line 13 : " & DateAdd("m", -1, date1))
   MsgBox ("Line 14 : " & DateAdd("y", -1, date1))
   MsgBox ("Line 15 : " & DateAdd("d", -1, date1))
'   MsgBox ("Line 16 : " & DateAdd("w", -1, date1))
'   MsgBox ("Line 17 : " & DateAdd("ww", -1, date1))
'   MsgBox ("Line 18 : " & DateAdd("h", -1, "01-Jan-2013 12:00:00"))
'   MsgBox ("Line 19 : " & DateAdd("n", -1, "01-Jan-2013 12:00:00"))
'   MsgBox ("Line 20 : " & DateAdd("s", -1, "01-Jan-2013 12:00:00"))
End Sub

/2、2、dateserial  返回指定的年份、月份、天的日期

 

3、FormatDateTime()函数它可以帮助开发人员格式化并返回有效的日期和时间表达式。

语法

FormatDateTime(date,format)

Vb

参数

• Date - 一个必需的参数。
• Format - 一个可选参数。指定要使用的日期或时间格式的值。它可以采取以下值 -
  • 0 = vbGeneralDate - 默认值
  • 1 = vbLongDate - 返回长日期
  • 2 = vbShortDate - 返回短日期
  • 3 = vbLongTime - 返回长时间
  • 4 = vbShortTime - 返回短时间

Private Sub Constant_demo_Click()
   d = ("2018-08-15 20:25")
   msgbox("Line 1 : " & FormatDateTime(d))
   msgbox("Line 2 : " & FormatDateTime(d,1))
   msgbox("Line 3 : " & FormatDateTime(d,2))
   msgbox("Line 4 : " & FormatDateTime(d,3))
   msgbox("Line 5 : " & FormatDateTime(d,4))
End Sub

4、

IsDate()函数无论给定的输入是否为日期，它都会返回一个布尔值。

语法

IsDate(expression)

Private Sub Constant_demo_Click()
   MsgBox ("Line 1 : " & IsDate("Nov 03, 1950"))
   MsgBox ("Line 2 : " & IsDate(31 / 2020))
   MsgBox ("Line 3 : " & IsDate(#5/31/2020 10:30:00 PM#))
End Sub
结果：

True  False  True

5、常用日期字符截取方法。

二、时间函数

1、now,返回当前时间

2、time 返回当前系统时间

Time()函数返回当前的系统时间。

3、Timer()函数返回自凌晨00:00起的秒数和毫秒数。

Private Sub Constant_demo_Click()
   msgbox("Time is : " & Now())
   msgbox("Timer is: " & Timer())
End Sub

4、TimeSerial()函数返回指定小时，分钟和秒值的时间。

Private Sub Constant_demo_Click()
   msgbox(TimeSerial(20,1,2))
   msgbox(TimeSerial(0,59,59))
   msgbox(TimeSerial(7*2,60/3,15+3))
End Sub

5、TimeValue()函数将给定的输入字符串转换为有效的时间。

Private Sub Constant_demo_Click() 
   msgbox(TimeValue("20:30"))
   msgbox(TimeValue("5:15"))
   msgbox(TimeValue("2:30:58"))
End Sub