'**************************************
    ' Name: mySQL datein-dateout
    ' Description:these are a couple of func
    '     tions ive written because i struggled fo
    '     r a while with getting dates and times i
    '     nto and out of a mySQL db.
    there probably a bit Long winded but they work.
    ' By: thorpe hepburn
    '
    ' Inputs:
    mysql_datein(now) = YYYY/MM/DD 18:11:22
    '
    ' Returns:
    mysql_dateout(now) = DD/MM/YY 06:11 PM
    '
    ' Assumes:the mysql_dateout is in aus fo
    '     rmat. DD/MM/YY, but you can change the o
    '     rder to what ever you like.
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/vb/scripts/Sho
    '     wCode.asp?txtCodeId=8637&lngWId;=4    'for details.    '**************************************
    
    	function mysql_datein(var)
    		Dim formed_year, formed_month, formed_day, formed_hour, formed_minute, formed_second
    		formed_year = datepart("yyyy", var)
    		formed_month = datepart("m", var)
    		formed_day = datepart("d", var)
    		formed_hour = datepart("h",var)
    		formed_minute = datepart("n", var)
    		formed_second = datepart("s", var)
    		if len(formed_month) < 2 Then
    			formed_month = "0" & formed_month
    		Else
    			formed_month = formed_month
    		End if
    		if len(formed_day) < 2 Then
    			formed_day = "0" & formed_day
    		Else
    			formed_day = formed_day
    		End if
    		if len(formed_hour) < 2 Then
    			formed_hour = "0" & formed_hour
    		Else
    			formed_hour = formed_hour
    		End if
    		if len(formed_minute) < 2 Then
    			formed_minute = "0" & formed_minute
    		Else
    			formed_minute = formed_minute
    		End if
    		if len(formed_second) < 2 Then
    			formed_second = "0" & formed_second
    		Else
    			formed_second = formed_second
    		End if
    		temp = formed_year & "/" & formed_month & "/" & formed_day & " " & formed_hour & ":" & formed_minute & ":" & formed_second
    		mysql_datein = temp
    	End function
    	function mysql_dateout(var)
    		Dim formed_year, formed_month, formed_day, formed_hour, formed_minute, formed_second
    		formed_year = right(datepart("yyyy", var), 2)
    		formed_month = datepart("m", var)
    		formed_day = datepart("d", var)
    		formed_hour = datepart("h", var)
    		if formed_hour < 13 Then
    			x = " AM"
    		Else
    			x = " PM"
    		End if
    		formed_hour = datepart("h", var) mod 12
    		formed_minute = datepart("n", var)
    		formed_second = datepart("s", var)
    		if len(formed_month) < 2 Then
    			formed_month = "0" & formed_month
    		Else
    			formed_month = formed_month
    		End if
    		if len(formed_day) < 2 Then
    			formed_day = "0" & formed_day
    		Else
    			formed_day = formed_day
    		End if
    		if len(formed_hour) < 2 Then
    			formed_hour = "0" & formed_hour
    		Else
    			formed_hour = formed_hour
    		End if
    		if len(formed_minute) < 2 Then
    			formed_minute = "0" & formed_minute
    		Else
    			formed_minute = formed_minute
    		End if
    		if len(formed_second) < 2 Then
    			formed_second = "0" & formed_second
    		Else
    			formed_second = formed_second
    		End if
    		temp = formed_day & "/" & formed_month & "/" & formed_year & " " & formed_hour & ":" & formed_minute & ":" & formed_second & x
    		mysql_dateout = temp
    	End function