dim strin as string,strout as string
strin="20051219"
strout=left(strin,4)
strout=strout & "/" & mid(strin,5,iif(len(strin)=8,2,1))
strout=strout & "/" & right(strin,2)
strout=format(strour,"yyyy/mm/dd")
msgbox(strout)
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
版权所有 西部数码(www.west263.com) CopyRight (c) 2002~2007 west263.com all right reserved. 公司地址：四川成都市万和路90号天象大厦4楼 邮编：610031 电话总机：028-86263408 86263960 86264018 86267838 86262244 86263408 售前咨询：总机转201 202 203 204 205 206 207 208 售后服务：总机转211 212 213 214 217 218 晚上0点以后拔分机225 |
| |||
| 财务咨询：总机转224
223 传真：028-86264041 财务QQ： 售前咨询QQ： 售后服务QQ：  在线咨询《中华人民共和国增值电信业务经营许可证》编号：川B2-20030065号 | ||||
