VBA 学习笔记 - 日期

date()

返回当前的系统日期

返回格式为 YYYY/MM/DD

CDate()

学习资料：https://www.yiibai.com/vba/vba_cdate_function.html

将有效的日期和时间表达式转换为类型日期。

用法

cdate(date)

丸子：就是把输入转换为固定日期格式: YYYY/MM/DD

支持“月日年”、“年月日”格式，其中月份可以为英文缩写，但是 Libre Office 的编辑器不支持此种格式，会报错，只能使用 Micro Office Excel 程序自带开发工具。

Private Sub Constant_demo_Click()
   Dim a As Variant
   Dim b As Variant

   a = CDate("Jan 01 2020")
   MsgBox ("The Value of a : " & a)

   b = CDate("31 Dec 2050")
   MsgBox ("The Value of b : " & b)

   c = CDate("2020-02-27")
   MsgBox ("The Value of c : " & c)
End Sub

DateAdd()

学习材料：https://www.yiibai.com/vba/vba_dateadd_function.html

返回一个指定的时间间隔被添加的日期。

用法

DateAdd(interval,number,date)

Private Sub date_demo_Click()

   ' Positive Interal
   date1 = 23 - Jan - 2020
   MsgBox ("yyyy - 年份: " & DateAdd("yyyy", 1, date1))
   MsgBox ("q - 季度: " & DateAdd("q", 1, date1))
   MsgBox ("m - 一年中的月份: " & DateAdd("m", 1, date1))
   MsgBox ("y - 一年中的年份: " & DateAdd("y", 1, date1))
   MsgBox ("d - 一年中的一天: " & DateAdd("d", 1, date1))
   MsgBox ("w - 工作日: " & DateAdd("w", 1, date1))
   MsgBox ("ww - 星期: " & DateAdd("ww", 1, date1))
   MsgBox ("h - 小时: " & DateAdd("h", 1, "01-Jan-2013 12:00:00"))
   MsgBox ("n - 分钟: " & DateAdd("n", 1, "01-Jan-2013 12:00:00"))
   MsgBox ("s - 秒钟: " & DateAdd("s", 1, "01-Jan-2013 12:00:00"))

   ' Negative Interval
   MsgBox ("yyyy - 年份: " & DateAdd("yyyy", -1, date1))
   MsgBox ("q - 季度: " & DateAdd("q", -1, date1))
   MsgBox ("m - 一年中的月份: " & DateAdd("m", -1, date1))
   MsgBox ("y - 一年中的年份: " & DateAdd("y", -1, date1))
   MsgBox ("d - 一年中的一天: " & DateAdd("d", -1, date1))
   MsgBox ("w - 工作日: " & DateAdd("w", -1, date1))
   MsgBox ("ww - 星期: " & DateAdd("ww", -1, date1))
   MsgBox ("h - 小时: " & DateAdd("h", -1, "01-Jan-2013 12:00:00"))
   MsgBox ("n - 分钟: " & DateAdd("n", -1, "01-Jan-2013 12:00:00"))
   MsgBox ("s - 秒钟 : " & DateAdd("s", -1, "01-Jan-2013 12:00:00"))
End Sub

DateDiff

学习材料：https://www.yiibai.com/vba/vba_datediff_function.html

返回两个指定的时间间隔之间的差值。

丸子：不太明白一年中的年和天是啥意思

用法

DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])

Private Sub Constant_demo_Click()
   Dim fromDate As Variant
   fromDate = "01-Jan-2009 00:00:00"

   Dim toDate As Variant
   toDate = "01-Jan-2010 23:59:00"

   MsgBox ("yyyy - 年份: " & DateDiff("yyyy", fromDate, toDate))
   MsgBox ("q - 季度: " & DateDiff("q", fromDate, toDate))
   MsgBox ("m - 一年中的月份: " & DateDiff("m", fromDate, toDate))'给的参数里面有俩 m
   MsgBox ("y - 一年中的年份: " & DateDiff("y", fromDate, toDate))
   MsgBox ("d - 一年中的一天：" & DateDiff("d", fromDate, toDate))
   MsgBox ("w - 工作日: " & DateDiff("w", fromDate, toDate))
   MsgBox ("ww - 星期: " & DateDiff("ww", fromDate, toDate))
   MsgBox ("h - 小时: " & DateDiff("h", fromDate, toDate))
   MsgBox ("n - 分钟: " & DateDiff("n", fromDate, toDate))'给的参数里面没有 n
   MsgBox ("s - 秒钟: " & DateDiff("s", fromDate, toDate))
End Sub

DatePart()

学习资料：https://www.yiibai.com/vba/vba_datepart_function.html

返回给定日期的特定部分。

用法

DatePart(interval,date[,firstdayofweek[,firstweekofyear]])

Private Sub DatePart_demo_Click()
   Dim Quarter As Variant
   Dim DayOfYear As Variant
   Dim WeekOfYear As Variant

   Date1 = "2020-02-27"
   Quarter = DatePart("q", Date1)

   MsgBox ("q - 季度: " & Quarter)
   DayOfYear = DatePart("y", Date1)

   MsgBox ("y - 一年中的年份: " & DayOfYear)
   WeekOfYear = DatePart("ww", Date1)

   MsgBox ("ww - 星期: " & WeekOfYear)
   MsgBox ("m - 一年中的月份: " & DatePart("m", Date1))
End Sub

DateSerial()

学习资料：https://www.yiibai.com/vba/vba_dateserial_function.html

返回指定日期、月份和年份参数的日期。

丸子：分别输入年月日，返回固定格式 YYYY/MM/DD

用法

DateSerial(year,month,day)

Private Sub Constant_demo_Click()
   msgbox(DateSerial(2020,2,27))
End Sub

FormatDateTime()

学习资料：https://www.yiibai.com/vba/vba_formatdatetime_function.html

根据提供的参数格式化日期。

用法

FormatDateTime(date,format)

Private Sub FormatDateTimedemo()
   d = ("2020-02-27 12:32")
   MsgBox ("0 = vbGeneralDate - 默认值: " & FormatDateTime(d))
   MsgBox ("1 = vbLongDate - 返回长日期: " & FormatDateTime(d, 1))
   MsgBox ("2 = vbShortDate - 返回短日期: " & FormatDateTime(d, 2))
   MsgBox ("3 = vbLongTime - 返回长时间: " & FormatDateTime(d, 3))
   MsgBox ("4 = vbShortTime - 返回短时间: " & FormatDateTime(d, 4))
End Sub