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
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