如何用VBA获取当前时间

获取当前的系统时间在【A1】中，系统中的年在[B1],月在【C1】日在【D1】

Sub D()
ActiveCell.FormulaR1C1 = "=NOW()"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=year"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=YEAR(RC[-1])"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=MONTH(RC[-2])"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=DAY(RC[-3])"
    Range("D2").Select
End Sub