获取当前年份 vb - VBA

在 VBA 中，获取当前年份的方法有很多。下面我们将介绍其中的几种方法。

方法一：使用 Year 函数

Dim curYear As Integer
curYear = Year(Date)

此方法是最基本的一种方法，使用 Year 函数获取当前日期所在的年份。由于函数本身就是返回整数类型，因此不需要使用 CInt 函数将其转换为整数类型。具体意义你可以自己查阅 VBA 文档。

方法二：使用 Format 函数

Dim curYear As Integer
curYear = Format(Date, "yyyy")

这种方法使用 Format 函数，将日期格式化成指定格式，再截取年份部分。其中 yyyy 表示年份部分。可以使用其他格式来获取其它部分的日期。

方法三：使用 VBA 内置的函数

Dim curYear As Integer
curYear = VBA.Year(Date)

此方法使用 VBA 内置的 Year 函数的方式，和方法一使用 Year 函数的方式相同。

方法四：使用 Doc 跨度对象

Dim curYear As Integer
curYear = Application.Documents(1).BuiltInDocumentProperties(wdPropertyTimeLastSaved).Value.Year

这种方法比较奇特，使用 Word 的 BuiltInDocumentProperties 对时间戳进行获取。由于当前时间戳中包含年份信息，因此可以直接获取。

以上就是在 VBA 中获取当前年份的几种方法。每种方法有自己的特点，需要根据实际情况来选择使用哪种方法。如果你有更好的方法，欢迎留言分享。