VBA中日期和时间函数是用于处理日期和时间的一系列函数，如Date、Time、Now、Year、Month、Day、Hour、Minute、Second等。这些函数可以帮助开发人员在程序中获取、操作和格式化日期和时间，且具有灵活性和可定制性，使开发人员能够以多种方式处理日期和时间信息。
VBA编程中常用的日期和时间函数包括：
Date：返回当前日期，不包含当前时间。
Now：返回当前日期和时间。
Year：从指定日期或时间中提取年份。
Month：从指定日期或时间中提取月份。
Day：从指定日期或时间中提取日。
Hour：从指定时间中提取小时。
Minute：从指定时间中提取分钟。
Second：从指定时间中提取秒钟。
DateDiff：计算两个日期之间的天数、月数或年数等差值。
DateAdd：将指定日期加上或减去指定的天数、月数、年数等，生成新的日期。
Format：将日期和时间格式化为指定的字符串形式。
TimeSerial：生成指定时间的Time类型值。
Timer：返回当前操作系统的计时器值，单位为秒。
1、Date函数：返回当前系统日期，格式为YYYY-MM-DD。代码示例：
Dim currentDate as Date
currentDate = Date()
MsgBox currentDate
" 显示：2021-07-15
2、Time函数：返回当前系统时间，格式为HH:MM:SS。代码示例：
Dim currentTime as Date
currentTime = Time()
MsgBox currentTime
" 显示类似：18:44:21
3、Now函数：返回当前系统日期和时间，格式为YYYY-MM-DD HH:MM:SS。代码示例：
Dim currentDateTime as Date
currentDateTime = Now()
MsgBox currentDateTime
" 显示类似：2021-07-15 18:48:36
4、Year函数：返回指定日期的年份，例如2021年。代码示例：
Dim myDate as Date
myDate = #2021-07-15#
MsgBox Year(myDate)
" 显示：2021
5、Month函数：返回指定日期的月份，范围是1至12。代码示例：
Dim myDate as Date
myDate = #2021-07-15#
MsgBox Month(myDate)
" 显示：7
6、Day函数：返回指定日期的日，范围是1至31。代码示例：
Dim myDate as Date
myDate = #2021-07-15#
MsgBox Day(myDate)
" 显示：15
7、Hour函数：返回指定时间的小时，范围是0至23。代码示例：
Dim myTime as Date
myTime = #18:54:23#
MsgBox Hour(myTime)
" 显示：18
8、Minute函数：返回指定时间的分钟，范围是0至59。代码示例：
Dim myTime as Date
myTime = #18:54:23#
MsgBox Minute(myTime)
" 显示：54
9、Second函数：返回指定时间的秒数，范围是0至59。代码示例：
Dim myTime as Date
myTime = #18:54:23#
MsgBox Second(myTime)
" 显示：23
10、DateDiff函数：用于计算两个日期之间的时间差，它的语法为 DateDiff(interval, 起始日期, 终止日期[, firstdayofweek[, firstweekofyear]])。其中interval代表计算的时间单位，如“d”代表天，“yyyy”代表年等。起始日期和终止日期为计算的两个日期。firstdayofweek和firstweekofyear分别指定一周的开始日和第一周的定义方式，可以省略。代码示例：
Sub example_DateDiff()
Dim days As Long
days = DateDiff("d", "2022-01-01", "2022-01-10")
MsgBox "相隔天数为" & days & "天"
End Sub
上面的代码用DateDiff函数计算了2022年1月1日和2022年1月10日之间的天数，将结果输出到消息框中。如下图：
11、DateAdd函数：用于在某个日期上增加或减少一个时间段，它的语法为：DateAdd(interval, number, 日期)。其中interval代表时间单位，如“d”代表天，“m”代表月等。number为需要增加或减少的时间数量，可以为正数或负数，日期代表要进行计算操作的原始日期。代码示例：
Sub example_DateAdd()
Dim newDate As Date
newDate = DateAdd("m", 3, "2022-10-01")
MsgBox "三个月后的日期为：" & newDate
End Sub
上面的代码用DateAdd函数在2022年10月1日上增加3个月，输出结果为新的日期。如下图：
12、Format函数：用于将一个日期时间数据按照指定格式转换为字符串格式，它的语法为：Format(日期时间, 格式字符串)。其中日期时间表示要转换的日期时间数据，格式字符串代表需要转换成的字符串格式。代码示例：
Sub example_Format()
Dim time As Date
time = Now
MsgBox "现在的时间是：" & Format(time, "yyyy-mm-dd hh:mm:ss")
End Sub
上面的代码用Format函数将当前时间转换成“年-月-日 时:分:秒”的格式并输出到消息框中。如下图：
13、TimeSerial函数：用于根据给定的小时、分钟和秒数创建一个时间，它的语法为：TimeSerial(hour, minute, second)。其中hour、minute和second分别代表小时、分钟和秒数。代码示例：
Sub example_TimeSerial()
Dim t As Date
t = TimeSerial(12, 30, 0)
MsgBox "创建的时间为：" & t
End Sub
上面的代码用TimeSerial函数创建出一个时间12:30:00，并输出到消息框中。如下图：
14、Timer函数：返回当前系统时间距离午夜以来经过的秒数，它的语法为：Timer()。代码示例：
Sub example_Timer()
Dim startTime As Single
startTime = Timer
MsgBox "点击确定后请等待5秒"
While Timer < startTime + 5
Wend
MsgBox "时间到了！"
End Sub
上面的代码用Timer函数在程序中设定一个5秒的计时器并在时间到期后输出信息。如下图：
下面是一个示例，演示了如何使用VBA中的日期和时间函数：
Sub dateTimeExample()
"获取当前时间
Dim currentTime As Date
currentTime = Now()
"输出当前时间
Debug.Print "当前时间：" & Format(currentTime, "yyyy-mm-dd hh:mm:ss")
"获取当前日期
Dim currentDate As Date
currentDate = Date
"输出当前日期
Debug.Print "当前日期：" & Format(currentDate, "yyyy-mm-dd")
"获取明天的日期
Dim tomorrowDate As Date
tomorrowDate = DateAdd("d", 1, currentDate)
"输出明天的日期
Debug.Print "明天的日期：" & Format(tomorrowDate, "yyyy-mm-dd")
"获取当前星期几
Dim currentWeekday As Integer
currentWeekday = Weekday(currentDate, vbMonday)
"输出当前星期几
Select Case currentWeekday
Case 1
Debug.Print "今天是星期一"
Case 2
Debug.Print "今天是星期二"
Case 3
Debug.Print "今天是星期三"
Case 4
Debug.Print "今天是星期四"
Case 5
Debug.Print "今天是星期五"
Case 6
Debug.Print "今天是星期六"
Case 7
Debug.Print "今天是星期日"
End Select
"获取当前月份的第一天
Dim firstDayOfMonth As Date
firstDayOfMonth = DateSerial(Year(currentDate), Month(currentDate), 1)
"输出当前月份的第一天
Debug.Print "当前月份的第一天：" & Format(firstDayOfMonth, "yyyy-mm-dd")
"获取当前月份的最后一天
Dim lastDayOfMonth As Date
lastDayOfMonth = DateSerial(Year(currentDate), Month(currentDate) + 1, 1) - 1
"输出当前月份的第一天
Debug.Print "当前月份的最后一天：" & Format(lastDayOfMonth, "yyyy-mm-dd")
End Sub上面的代码演示了如何获取当前时间、日期、明天的日期、当前星期几、当前月份的第一天和最后一天，并将其输出到调试窗口中。大家可以尝试运行这段代码，然后在调试窗口中查看输出结果。