Excel solar calendar to lunar calendar VBA function code?

You can find "Excel solar calendar to lunar calendar" in Baidu, but why not use the formula to calculate directly:

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

If you want to use VBA, you can write:

Submacro 1 ()

[A 1] = application. Text ([A2], "[$- 130000]yyyy-m-d")

End joint