Oh, and I'm also pretty sure I need to adjust the formatting here
private function FormatAsDate(strValue,format) 'D,',none,NULL strValue = strValue & "" if strValue <> "" then if isDate(strValue) then myDate = cdate(strValue) strValue = replace(DbFormatDate,"DD",right("0" & day(myDate),2),1,-1,vbtextcompare) strValue = replace(strValue,"MM",right("0" & month(myDate),2),1,-1,vbtextcompare) strValue = replace(strValue,"YYYY",year(myDate),1,-1,vbtextcompare) FormatAsDate = DateDelimChar & strValue & DateDelimChar else FormatAsDate = DateNull end if else FormatAsDate = DateNull end if end function
I think I'm onto it by adding something like this??
strValue = replace(DBFormatDate,"HH",right("0" & Hour(myDate),2),1,-1,vbtextcompare) |
|
|