Function Format_DateWithoutTime_by_FormatString(dateValue,fString)
intYear = Year(dateValue)
intMonth = Month(dateValue)
intDay = Day(dateValue)
intMonth2 = intMonth
intDay2 = intDay
If intDay2 <10 Then
intDay2 = 0&CStr(intDay2)
End If
If intMonth2 <10 Then
intMonth2 = 0&CStr(intMonth2)
End If
select case fString
case "yyyy-mm-dd"
Format_DateWithoutTime_by_FormatString = intYear&"-"&intMonth2&"-"&intDay2
case "yyyy-m-d"
Format_DateWithoutTime_by_FormatString = intYear&"-"&intMonth&"-"&intDay
case "mm/dd/yyyy"
Format_DateWithoutTime_by_FormatString = intMonth2&"/"&intDay2&"/"&intYear
case "m/d/yyyy"
Format_DateWithoutTime_by_FormatString = intMonth&"/"&intDay&"/"&intYear
case else
Format_DateWithoutTime_by_FormatString = -1
end select
End Function