asp格式化日期时间格式之代码

' ============================================

' 格式化时间(显示)

' 参数：n_Flag

' 1:"yyyy-mm-dd hh:mm:ss"

' 2:"yyyy-mm-dd"

' 3:"hh:mm:ss"

' 4:"yyyy年mm月dd日"

' 5:"yyyymmdd"

' ============================================

Function Format_Time(s_Time, n_Flag)

 Dim y, m, d, h, mi, s

 Format_Time = ""

 If IsDate(s_Time) = False Then Exit Function

 y = cstr(year(s_Time))

 m = cstr(month(s_Time))

 If len(m) = 1 Then m = "0" & m

 d = cstr(day(s_Time))

 If len(d) = 1 Then d = "0" & d

 h = cstr(hour(s_Time))

 If len(h) = 1 Then h = "0" & h

 mi = cstr(minute(s_Time))

 If len(mi) = 1 Then mi = "0" & mi

 s = cstr(second(s_Time))

 If len(s) = 1 Then s = "0" & s

 Select Case n_Flag

 Case 1

  ' yyyy-mm-dd hh:mm:ss

  Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s

 Case 2

  ' yyyy-mm-dd

  Format_Time = y & "-" & m & "-" & d

 Case 3

  ' hh:mm:ss

  Format_Time = h & ":" & mi & ":" & s

 Case 4

  ' yyyy年mm月dd日

  Format_Time = y & "年" & m & "月" & d & "日"

 Case 5

  ' yyyymmdd

  Format_Time = y & m & d

 End Select

End Function

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!