Русский
dim strin как строка,strout как строка
strin="20051219"
strout=left(strin,4)
strout=strout & "/" & middle(strin,5,iif(len(strin)=8,2,1))
strout =strout & "/" & right(strin,2)
strout=format(strour,"гггг/мм/дд")
msgbox(strout)
