日期格式的转换

function FormatMyDateTime(myDateTime)
 Dim strYear,strMonth,strDay,strHour,strMinute,strSecond
 Dim sResult
 strYear = "0000" & Year(myDateTime)
 strMonth = "00" & Month(myDateTime)
 strDay = "00" & Day(myDateTime)
 strYear = Right(strYear,4)
 strMonth = Right(strMonth,2)
 strDay = Right(strDay,2)
    sResult = strYear & "-" & strMonth & "-" & strDay
    FormatmyDateTime = sResult
End function