[转]asp格式化日期

 1  最近写代码所用到的，贴出来大家分享，当然要谢谢那些前辈们，提供的一些好的方法
 2
 3 < % 
 4 '  ============================================ 
 5 '  格式化时间(显示) 
 6 '  参数：n_Flag 
 7 '  1:"yyyy-mm-dd hh:mm:ss" 
 8 '  2:"yyyy-mm-dd" 
 9 '  3:"hh:mm:ss" 
10 '  4:"yyyy年mm月dd日" 
11 '  5:"yyyymmdd" 
12 '  6:"yyyymmddhhmmss" 
13 '  ============================================ 
14 Function  Format_Time(s_Time, n_Flag) 
15 Dim  y, m, d, h, mi, s 
16 Format_Time  =   ""  
17 If   IsDate (s_Time)  =   False   Then   Exit   Function  
18 y  =   cstr ( year (s_Time)) 
19 m  =   cstr ( month (s_Time)) 
20 If   len (m)  =   1   Then  m  =   " 0 "   &  m 
21 d  =   cstr ( day (s_Time)) 
22 If   len (d)  =   1   Then  d  =   " 0 "   &  d 
23 h  =   cstr ( hour (s_Time)) 
24 If   len (h)  =   1   Then  h  =   " 0 "   &  h 
25 mi  =   cstr ( minute (s_Time)) 
26 If   len (mi)  =   1   Then  mi  =   " 0 "   &  mi 
27 s  =   cstr ( second (s_Time)) 
28 If   len (s)  =   1   Then  s  =   " 0 "   &  s 
29 Select   Case  n_Flag 
30 Case   1  
31 '  yyyy-mm-dd hh:mm:ss 
32 Format_Time  =  y  &   " - "   &  m  &   " - "   &  d  &   "   "   &  h  &   " : "   &  mi  &   " : "   &  s 
33 Case   2  
34 '  yyyy-mm-dd 
35 Format_Time  =  y  &   " - "   &  m  &   " - "   &  d 
36 Case   3  
37 '  hh:mm:ss 
38 Format_Time  =  h  &   " : "   &  mi  &   " : "   &  s 
39 Case   4  
40 '  yyyy年mm月dd日 
41 Format_Time  =  y  &   " 年 "   &  m  &   " 月 "   &  d  &   " 日 "  
42 Case   5  
43 '  yyyymmdd 
44 Format_Time  =  y  &  m  &  d 
45 case   6  
46 ' yyyymmddhhmmss 
47 format_time =  y  &  m  &  d  &  h  &  mi  &  s 
48 End   Select  
49 End Function  
50 % >
51
52 < % = format_time( now , 1 )% >
53

当需要将长日期格式转换为短日期格式时，可以使用FormatDateTime 函数

FormatDateTime 函数
请参阅
FormatCurrency 函数 | FormatNumber 函数 | FormatPercent 函数
要求
版本2
返回表达式，此表达式已被格式化为日期或时间。

FormatDateTime(Date[, NamedFormat])
参数
Date
必选项。要被格式化的日期表达式。
NamedFormat
可选项。指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate。
设置
NamedFormat 参数可以有以下值：

常数 值 描述
vbGeneralDate 0 显示日期和/或时间。如果有日期部分，则将该部分显示为短日期格式。如果有时间部分，则将该部分显示为长时间格式。如果都存在，则显示所有部分。
vbLongDate 1 使用计算机区域设置中指定的长日期格式显示日期。
vbShortDate 2 使用计算机区域设置中指定的短日期格式显示日期。
vbLongTime 3 使用计算机区域设置中指定的时间格式显示时间。
vbShortTime 4 使用 24 小时格式 (hh:mm) 显示时间。

说明
下面例子利用 FormatDateTime 函数把表达式格式化为长日期型并且把它赋给 MyDateTime:

Function GetCurrentDate
   'FormatDateTime 把日期型格式化为长日期型。
   GetCurrentDate = FormatDateTime(Date, 1)
End Function
要求
版本2

转载于:https://www.cnblogs.com/jianfangkk/archive/2008/06/01/1211729.html