i = split(date, "-")
If CLng(i(1)) >= 10 and CLng(i(2)) >= 10 Then
SayString i(1) & i(2)
ElseIf CLng(i(1)) >= 10 and CLng(i(2)) < 10 Then
SayString i(1) & "0" & i(2)
ElseIf CLng(i(1)) < 10 and CLng(i(2)) >= 10 Then
SayString "0" & i(1) & i(2)
ElseIf CLng(i(1)) < 10 and CLng(i(2)) < 10 Then
SayString "0" & i(1) & "0" & i(2)
End If
追问提示下标越界了,怎么搞啊