yea=Year(now())
Mon=Month(now())
Mon=Mon-1
if Mon<=9 then
if Mon=0 then
ny=yea-1&"12"
else
ny=yea&"0"&Mon
end if
else
ny=yea&Mon
end if
这是excel的自定义函数传入的参数解析吧。如有帮助望采纳,谢谢
yea=Year(now()) --得到当前年 Mon=Month(now()) --得到当前月 Mon=Mon-1 --月等于当前月-1 if Mon<=9 then --如果月小于等于9 if Mon=0 then --如果月等于0 ny=yea-1&"12" 当前年-1,12月 else ny=yea&"0"&Mon 当前年月 end if else ny=yea&Mon 当前年月 end IF
。。。。。。。。。。。。。。。。。