日期的年,月,日 | 日期添加 | 当前日期和时间 | 时,分,秒 | 时间值
了解如何在Excel VBA中使用日期和时间。
在您的工作表上放置一个命令按钮,并在下面添加代码行。要执行代码行,请单击工作表上的命令按钮。
日期的年,月,日
以下宏获取日期的年份。要声明日期,请使用Dim语句。要初始化日期,请使用DateValue函数。
码:
Dim exampleDate As Date
exampleDate = DateValue(“ 2020年1月19日”)
MsgBox Year(exampleDate)
exampleDate = DateValue(“ 2020年1月19日”)
MsgBox Year(exampleDate)
结果:
注意:使用“月和日”获取日期的月和日。
日期添加
要为日期增加天数,请使用DateAdd函数。DateAdd函数具有三个参数。在第一个参数中填写“ d”以添加天数。填写3作为第二个参数,以增加3天。第三个参数表示添加天数的日期。
码:
Dim firstDate 作为 Date,secondDate 作为 日期
firstDate = DateValue(“ 2020年1月19日”)
secondDate = DateAdd(“ d”,3,firstDate)
MsgBox secondDate
firstDate = DateValue(“ 2020年1月19日”)
secondDate = DateAdd(“ d”,3,firstDate)
MsgBox secondDate
结果:
注意:将“ d”更改为“ m”,以在日期中增加月份数。将光标放在Visual Basic编辑器中的DateAdd上,然后单击F1以获取其他间隔说明符的帮助。日期采用美国格式。月数第一,天数第二。这种格式取决于您的Windows区域设置。
当前日期和时间
要获取当前日期和时间,请使用Now函数。
码:
MsgBox现在
结果:
时,分,秒
要获取时间的小时数,请使用小时功能。
码:
MsgBox小时(现在)
结果:
注意:使用Minute and Second(分钟和秒)来获取时间的分钟和秒。
时间值
TimeValue函数将字符串转换为时间序列号。时间的序列号是介于0和1之间的数字。例如,中午(一天中的中午)表示为0.5。
码:
MsgBox TimeValue(“ 9:20:01 am”)
结果:
现在,要清楚地看到Excel在内部将时间处理为0到1之间的数字,请添加以下代码行:
Dim y 作为 Double
y = TimeValue(“ 09:20:01”)
MsgBox y
y = TimeValue(“ 09:20:01”)
MsgBox y
结果: