asp格式化日期代码分享
2015-12-02 15:21
asp格式化日期没有自带的函数。只能我们自己开发了。下面的我测试可用的代码。数据直接用NOW(),5种格式化可选
- 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
【责任编辑:小戴工程师】
上一篇:中小型网站架构部署与优化 下一篇:asp生成xml文件代码实例 怎么生成xml文件?最新文章
2015-12-02 15:21
相关文章
2015-12-02 15:21