如何用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

版权声明：本文为weixin_42412150原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。