直接用Now，不要这么麻烦还通过Data转？
a = Month(Now)
b = Year(Now)
c = Day(Now)
Dim a as string
Dim b as string
Dim c as string
Data = Now
a = Format(Data,"yyyy")
b= Format(Data,"mm")
c= Format(Data,"dd")
看代码没啥不对啊，出啥错误提示了？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024