21 lines
774 B
Plaintext
21 lines
774 B
Plaintext
<%
|
|
Private Function SwapDate(ByVal dateinput)
|
|
Dim strWorkingDate, tmpArray, assemblystring, del, i
|
|
strWorkingDate = dateinput
|
|
If InStr(strWorkingDate, "/") Then
|
|
tmpArray = Split( strWorkingDate, "/" ) : del = "/"
|
|
ElseIf InStr(strWorkingDate, "-") Then
|
|
tmpArray = Split( strWorkingDate, "-" ) : del = "-"
|
|
ElseIf InStr(strWorkingDate, " ") Then
|
|
tmpArray = Split( strWorkingDate, " " ) : del = " "
|
|
End If
|
|
For i = 0 To UBound(tmpArray)
|
|
tmpArray( i ) = Replace( tmparray( i ), ",", "" )
|
|
Next
|
|
assemblystring = tmpArray(1) & del & tmpArray(0)
|
|
If del = " " Then assemblystring = assemblystring & ","
|
|
assemblystring = assemblystring & del & tmpArray(2)
|
|
SwapDate = Trim( assemblystring )
|
|
End Function
|
|
%>
|