程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> asp 日期格式化函數

asp 日期格式化函數

編輯:關於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
    %>

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved