改变日期格式代码看不懂麻烦帮解释一下

Public Function DateChange(strDate As String) As String
On Error GoTo Err
Dim Mon As Integer
DateChange = Year(strDate) '获取年份
Mon = Month(strDate) '获取月份
If Mon < 10 Then '如果小于10,则在前面月份前补0
DateChange = DateChange & "-0" & CStr(Mon)
Else
DateChange = DateChange & "-" & CStr(Mon)
End If
If Len(strDate) > 7 Then '如果长度大于7

Mon = Day(strDate) '获取几号
If Mon < 10 Then '小于10号,则前面补0
DateChange = DateChange & "-0" & CStr(Mon)
Else
DateChange = DateChange & "-" & CStr(Mon)
End If
End If
Exit Function
Err:
DateChange = ""
End Function

就拿 2008-1-2 来做例子吧！

Public Function DateChange(strDate As String) As String
On Error GoTo Err
Dim Mon As Integer '