各位高手：

怎么样能把 2006-1-5 变成显示 2006-01-05或者06-01-05呢？

总之就是让1-9月的前面多个0变成两位的呢？

private function CFomart(byval SString as string) as string
if not isdate(sstring) then CFmorat="Error Input":exit function
cfmorat=cstr(year(sstring))&CDuboleS(month(sstring))&CDoubleS(day(sstring))
end function


private function CDuboleS(byval SString as string) as string
CDouboleS=iif(len(sstring)=1,"0"&sstring,sstring)
end function

usage:CFormat("2006-1-5")

if len(month(now))<2 then
month2="0"&month(now)'month2格式为：01
else
month2=month(now)
end if

3樓的笨