Excel的VBA日期和时间
年，月，日期的日| 链接：#dateadd [使用DateAdd]| 链接：＃目前的最新时间[当前日期和时间]
小时，分，秒| 链接：#timevalue [TIMEVALUE]
了解如何使用日期和时间在Excel中VBA工作。
命令按钮您的工作表上，并添加下面的代码行。要执行的代码行中，单击在纸张上的命令按钮。
日期的年，月，日
下面的宏得到一个日期的年份。要声明的日期，使用Dim语句。要初始化一个日期，使用DATEVALUE函数。
代码：
Dim exampleDate As Date
exampleDate = DateValue("Jan 19, 2020")
MsgBox Year(exampleDate)
结果：
注意：使用月和日获得日期的月和日。
使用DateAdd
要增加的天数为日期，使用DateAdd函数。 DateAdd函数有三个参数。在“d”填写添加天的第一个参数。在3填写第二个参数来添加3天。第三个参数代表了将要添加的天数的日期。
代码：
Dim firstDate As Date, secondDate As Date
firstDate = DateValue("Jan 19, 2020")
secondDate = DateAdd("d", 3, firstDate)
MsgBox secondDate
结果：
注意：改变“d”到“M”的月数添加到日期。将您的使用DateAdd光标Visual Basic编辑器，然后点击F1有关其他间隔符的帮助。日期是美国格式。月第一，第二日。这种类型的格式取决于您的Windows区域设置。
当前日期和时间
为了得到当前的日期和时间，使用Now函数。
代码：
MsgBox Now
结果：
小时，分，秒
该得到的时间的小时，使用小时功能。
代码：
MsgBox Hour(Now)
结果：
注：使用分，秒得到的时间分秒。
TIMEVALUE
该TIMEVALUE函数将字符串转换为一个时间序列号。时间的序列号是0和1之间。例如一个数字，中午（中途天）被表示为0.5。
代码：
MsgBox TimeValue("9:20:01 am")
结果：
现在，清楚地看到，Excel处理内部倍，在0和1之间的数字，添加以下代码行：
Dim y As Double
y = TimeValue("09:20:01")
MsgBox y
结果：
