=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