求助：文本转换日期

'创建函数

Function Dat(str As String)

'功能:TTS110603 --->  2011-06-03

'参数:str必需为,Right(str, 6)得到的值是六位的数字
Dim str1, Y, M, D As String
str1 = Right(str, 6)
Y = "20" & Left(str1, 2)
M = Mid(str1, 3, 2)'M的值必需小于13
D = Right(str1, 2)'D的值必需小于31

Dat = Y & "-" & M & "-" & D
End Function