可以在百度找到“Excel阳历转阴历”，但是为什么不用公式直接计算:

=TEXT(A2，"[$-130000]yyyy-m-d ")

如果要用VBA，可以写成:

子宏1()

[A1] =应用。文本([A2]，"[$-130000]yyyy-m-d ")

末端接头