ASP Time Date Formatter

' Function name: formattime
' Function: Time formatting
' Parameter: datetime----the time to format
' Format----form
'****************************************************
Public Function formattime (Datetime,format)
Select Case Format
Case "1"
Formattime= "" &year (DateTime) & "Year" &month (datetime) & "Month" &day (datetime) & "Day"
Case "2"
Formattime= "" &month (DateTime) & "Month" &day (datetime) & "Day"
Case "3"
Formattime= "" &year (DateTime) & "/" &month (DateTime) & "/" &day (DateTime) & ""
Case "4"
Formattime= "" &month (DateTime) & "/" &day (DateTime) & ""
Case "5"
Formattime= "" &month (DateTime) & "Month" &day (datetime) & "Day" &formatdatetime (datetime,4) & ""
Case "6"
Temp= "Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday"
Temp=split (temp, ",")
Formattime=temp (Weekday (DateTime)-1)
Case Else
Formattime=datetime
End Select
End Function

Public Function Timetodiff (DateTime)
If IsDate (DateTime) Then
Dim Tsecond:tsecond=datediff ("s", Datetime,now ())
If tsecond<60 Then '//within one minute
Timetodiff= "just"
End If
If tsecond>=60 and tsecond<3600 Then '//within one hour
Timetodiff=datediff ("n", Datetime,now ()) & "Minutes Ago"
End If
If tsecond>=3600 and tsecond<86400 Then '//within one day
Timetodiff=datediff ("H", Datetime,now ()) & "Hours Ago"
End If
If tsecond>=86400 and tsecond<2592000 Then '//One months
Timetodiff=datediff ("D", Datetime,now ()) & "Days Ago"
End If
If tsecond>=2592000 and tsecond<31536000 Then '//One year
Timetodiff=datediff ("M", Datetime,now ()) & "months ago"
End If
If tsecond>=31536000 Then '/Other
Timetodiff=datediff ("yyyy", Datetime,now ()) & "Years ago"
End If
Else
timetodiff= "N days Ago"
End If
End Function