编程
您现在的位置:首页 >> 编程

asp 日期格式化函数

============================================ 

格式化时间(显示) 

参数:n_Flag 

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

2:"yyyy-mm-dd" 

3:"hh:mm:ss" 

4:"yyyy年mm月dd日" 

5:"yyyymmdd" 

6:"yyyymmddhhmmss" 

============================================ 

Function FormatTime(s_Time, n_Flag) 

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

 FormatTime = "" 

 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 

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

 Case 2 

 yyyy-mm-dd 

 FormatTime = y & "-" & m & "-" & d 

 Case 3 

 hh:mm:ss 

 FormatTime = h & ":" & mi & ":" & s 

 Case 4 

  yyyy年mm月dd日 

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

 Case 5 

  yyyymmdd 

 FormatTime = y & m & d 

 case 6 

 yyyymmddhhmmss 

 FormatTime= y & m & d & h & mi & s 

 End Select 

End Function 

%>