ASP format Time function

ASP Tutorial Format Time function

' This function can be based on the user given the time date, time, minutes, etc., as long as the user given different style parameters can display different styles of time and date.

function Formattime (Testtime,style)

Dim n,y,r,s,f,m

n = year (testtime)

y = month (testtime)

R = Day (testtime)

s = Hour (testtime)

f = Minute (Testtime)

M = Second (testtime)

If Len (n) = 2 then n = "M" & N

If Len (y) = 1 then y = "0" & Y

If Len (r) = 1 Then R = "0" & R

If Len (s) = 1 then s = "0" & S

If Len (f) = 1 then f = "0" & F

If Len (m) = 1 Then m = "0" & M

Nn=right (n,2)

If style = 1 Then

Formattime = "" & N & "Year" & Y & "month" & R & "Day" & S & "Time"

ElseIf style = 2 Then

Formattime = R & "Day" & S & ": & F &": "& M

ElseIf style = 3 Then

Formattime = N & "year" & Y & "month" & R & "Day"

ElseIf style = 4 Then

Formattime = N & "-" & Y & "-" & R & "" & S & ":" & F

ElseIf style = 5 Then

Formattime = y & "-" & R & "" & S & ":" & F

ElseIf style = 6 Then

Formattime = N & "year" & Y & "month" & R & "Day" & S & ":" & F

ElseIf style = 7 Then

Formattime = N & Y & R & S & F & M

ElseIf style = 8 Then

Formattime = N & "-" & Y & "-" & R

ElseIf style = 9 Then

Formattime = N & "/" & Y & "/" & R

End If

End Function