العربية
سلسلة خافتة كسلسلة، strout كسلسلة
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)
