ASP format Date of time

ASP Tutorial Format Time Date

Public function Formatdt (DT, style)

' Style=0 2000-10-10 12:17:45

' Style=1 2000-10-10 23:17:45

' Style=2 2000-10-10 23:45

' Style=3 00-10-10 23:45

' Style=4 10-10 23:45

' Style=5 2000-10-10

' Style=6 00-10-10

' Style=7 10-10

' Style=8 23h-45m-45s

' Style=9 20001010231745

' style=10 0510 upload picture

' Style=11 October 10, 05

' Style=12 05/10/12 upload picture

Dim nowdate, Y, M, D, H, I, S, T, APM, HAPM

nowdate = DT

y = year (nowdate)

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

m = Month (nowdate)

If Len (m) =1 then m= "0" &m

D = Day (nowdate)

If Len (d) =1 then d= "0" &d

h = Hour (nowdate)

If Len (h) =1 then h= "0" &h

i = Minute (nowdate)

If Len (i) =1 then i= "0" &i

s = Second (nowdate)

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

If h > Then

APM = "PM"

HAPM = CStr (CInt (h) MoD 12)

Else

APM = "a.m."

HAPM = h

End If

Select Case Style

Case 0

t = y & "-" & M & "-" & D & "" & APM & HAPM & ":" & I & ":" & S

Case 1

t = y & "-" & M & "-" & D & "" & H & ":" & I & ":" & S

Case 2

t = y & "-" & M & "-" & D & "" & H & ":" & I

Case 3

T = Right (y, 2) & "-" & M & "-" & D & "" & H & ":" & I

Case 4

t = M & "-" & D & "" & H & ":" & I

Case 5

t = y & "-" & M & "-" & D

Case 6

T = Right (y, 2) & "-" & M & "-" & D

Case 7

t = M & "-" & D

Case 8

T. = h & "h" & I & "M" & S & "S"

Case 9

t = y & M & D & H & I & S

Case 10 ' upload

T = Right (y, 2) & M

Case 11

T = Right (y, 2) & "Year" & M & "Month" & D & "Day"

Case 12

T = Right (y, 2) & "/" & M & "/" & D

End Select

FORMATDT = t

End Function