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 上传图片
'style=11 05年10月10日
'style=12 05/10/12 上传图片
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 > 12 Then
APM = "下午 "
hAPM = CStr(CInt(h) Mod 12)
Else
APM = "上午 "
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'上传
t = Right(y, 2) & m
Case 11
t = Right(y, 2) & "年" & m & "月" & d & "日"
Case 12
t = Right(y, 2) & "/" & m & "/" & d
End Select
FormatDT = t
End Function
