小兔网

日期的年,月,日 | 日期添加 | 当前日期和时间 | 时,分,秒 | 时间值

了解如何Excel VBA中使用日期和时间

在您的工作表上放置一个命令按钮,并在下面添加代码行。要执行代码行,请单击工作表上的命令按钮。

日期的年,月,日

以下宏获取日期的年份。要声明日期,请使用Dim语句。要初始化日期,请使用DateValue函数。

码:

Dim exampleDate As Date

exampleDate = DateValue(“ 2020年1月19日”)

MsgBox Year(exampleDate)

结果:

Excel VBA中的日期年份

注意:使用“月和日”获取日期的月和日。

日期添加

要为日期增加天数,请使用DateAdd函数。DateAdd函数具有三个参数。在第一个参数中填写“ d”以添加天数。填写3作为第二个参数,以增加3天。第三个参数表示添加天数的日期。

码:

Dim firstDate 作为 Date,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

结果:

时间序列号