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

也想出现在这里？点击联系我~

1. '============================================
2. '格式化时间(显示)
3. '参数：n_Flag
4. '1:"yyyy-mm-ddhh:mm:ss"
5. '2:"yyyy-mm-dd"
6. '3:"hh:mm:ss"
7. '4:"yyyy年mm月dd日"
8. '5:"yyyymmdd"
9. '============================================
10. FunctionFormat_Time(s_Time,n_Flag)
11. Dimy,m,d,h,mi,s
12. Format_Time=""
13. IfIsDate(s_Time)=FalseThenExitFunction
14. y=cstr(year(s_Time))
15. m=cstr(month(s_Time))
16. Iflen(m)=1Thenm="0"&m
17. d=cstr(day(s_Time))
18. Iflen(d)=1Thend="0"&d
19. h=cstr(hour(s_Time))
20. Iflen(h)=1Thenh="0"&h
21. mi=cstr(minute(s_Time))
22. Iflen(mi)=1Thenmi="0"&mi
23. s=cstr(second(s_Time))
24. Iflen(s)=1Thens="0"&s
25. SelectCasen_Flag
26. Case1
27. 'yyyy-mm-ddhh:mm:ss
28. Format_Time=y&"-"&m&"-"&d&""&h&":"&mi&":"&s
29. Case2
30. 'yyyy-mm-dd
31. Format_Time=y&"-"&m&"-"&d
32. Case3
33. 'hh:mm:ss
34. Format_Time=h&":"&mi&":"&s
35. Case4
36. 'yyyy年mm月dd日
37. Format_Time=y&"年"&m&"月"&d&"日"
38. Case5
39. 'yyyymmdd
40. Format_Time=y&m&d
41. EndSelect
42. EndFunction