将输入的20041219等的数字字符串等格式化成日期型

     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)
  
  
  
  
    做人要厚道，请注明转自chinazhan中国站长(www.ChinaZhan.com)。