excel - VBA - 如何将日期转换为字符串

Question

我在 EXCEL 中有一个日期列，日期格式为 - 1/27/2019。我想在 VBA 中编写一个脚本来仅提取年份部分 (2019) 并将其放在另一列中。

我是否先将 Date 转换为 String？然后使用

分割字符串

`Split(date_as_string, "/")

获取年份部分？？

如何将 Date 转换为 String 以实现此目的？也感谢任何其他解决此问题的方法。

Answer 1

如果您的日期列是真正的日期格式，那么 Excel YEAR 函数可用于返回另一列中的年份值。在这种情况下，列中反射(reflect)的日期采用我的系统本地日期格式。它可能在您的系统中有所不同，但 YEAR 将按照您的日期系统工作。

编辑:如果你想使用 VBA，那么宏的例子是:

Sub Year_Only()
    Dim yr As String
    yr = Year(Range("A1"))
    Range("B1").Value = yr
End Sub