从单元格获取年份并创建不同的日期

Question

我有各种日期的列。我将每个日期作为循环的一部分进行处理。我需要从细胞中获得一个日期，三月三十一号和一年。
例如：

4/5/2014  3/31/2014 
7/5/1999  3/31/1999 

等等

Answer 1

使用DateSerial：

ActiveSheet.Range("B1").Value = DateSerial(Year(ActiveSheet.Range("A1")), 3, 31)