Anyhow, those are the two lessons I've learned. If at any time I need to work with a full datetime string, I just call both functions, and stitch the two resulting strings together with a space in between. I've found the time function especially helpful in cleaning up user input.
Here is all the code if you want it:
'====================
function mysqlDate( d, dir )
'====================
'if not isDate( d ) then call errorMessage( d & " is not a date " )
'if not isDate( d ) then exit function
if not isDate( d ) then d = Date()
dim strNewDate
select case dir
case 1 '=== store in db
strNewDate = year( d ) & "-" & month( d ) & "-" & day( d )
case 2 '=== use with asp
strNewDate = month( d )& "/" & day( d ) & "/" & year( d )
end select
strNewDate = cDate( strNewDate )
mysqlDate = strNewDate
end function
'====================
function mysqlTime( t, dir )
'====================
dim strSuffix, arTime, i, x
t = trim( Lcase( t ) )
if inStr( t, "pm" ) > 0 OR inStr( t, "am" ) > 0 then
strSuffix = right( t, 2 )
t = left( t, inStr( t, strSuffix ) -2 )
t = trim( t )
end if
for i = 1 to len( t )
x = mid( t, i, 1 )
if not isReallyNumeric( x ) and x <> ":" then t = replace( t, x, "" )
next
arTime = split( t, ":" )
t = ""
for i = 0 to 2
if uBound( arTime ) < i then redim preserve arTime( i )
if i = 0 then
if dir = 1 then
if strSuffix = "pm" and cInt( arTime( i ) ) < 12 then
arTime( i ) = cInt( arTime( i ) ) + 12
end if
else
if cInt( arTime( i ) ) > 12 then
arTime( i ) = cInt( arTime( i ) ) - 12
strSuffix = "PM"
else
strSuffix = "AM"
end if
end if
end if
do until len( arTime( i ) ) = 2
arTime( i ) = "0" & arTime( i )
loop
t = t & arTime( i )
if i < 2 then t = t & ":"
next
arTime = null
if dir = 2 then t = t & " " & strSuffix
'debug( t )
mysqlTime = t
end function
| DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware. |
/ 43 
