Formatee las cadenas numéricas de entrada como 20041219 en tipo de fecha

Autor：Eve Cole Fecha de actualización：2009-06-30 16:11:36

cadena tenue como cadena, trucha como cadena

cadena="20051219"

strout=left(strin,4)

strout=strout & "/" & mid(strin,5,iif(len(strin)=8,2,1))

strout = trucha & "/" & derecha(cadena,2)

trucha=formato(strour,"aaaa/mm/dd")

msgbox(trucha)