從單元格獲取年份並創建不同的日期

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)