asp日期函数的应用（自己整理）

时间：2010-04-17 来源：mx11

将下面的代码复制保存到asp中就可以看到效果与调用方法

<%=now()%>
 
<%=Replace(Now(),"：",":")%>
 
<hr>
获取当前系统日期和时间,ASP输出可以这样写：<%=now()%>
 
Year(now()) 获取年份， ASP输出：<%=Year(now())%>
 
Month(now()) 获取当前月份，ASP输出：<%=Month(now())%>
 
day(now()) 获取当天数，ASP输出：<%=day(now())%>
 
Minute(now()) 获取分钟数，ASP输出：<%=Minute(now())%>
 
Second(now()) 获取秒钟数，ASP输出：<%=Second(now())%>
 
<hr>
date() 获取当前系统日期，格式为：2004-2-28
 
time() 获取当前系统时间，格式为：22:24:59
 
函数调用格式：FormatDateTime(Date[, NamedFormat])
 
FormatDateTime函数的语法有以下参数：
 
参数描述
 
Date 必选，要被格式化的日期表达式。
 
NamedFormat 可选，指示所使用的日期/时间格式的数值，如果省略，则使用vbGeneralDate。
 
<hr>
设置
 
NamedFormat参数可以有以下值：
 
vbGeneralDate 0 显示日期和/或时间；如果有日期部分，则将该部分显示为短日期格式；如果有时间部
 
分，则将该部分显示为长时间格式；如果都存在，则显示所有部分。
 
vbLongDate 1 使用计算机区域设置中指定的长日期格式显示日期。
 
vbShortDate 2 使用计算机区域设置中指定的短日期格式显示日期。
 
vbLongTime 3 使用计算机区域设置中指定的时间格式显示时间。
 
vbShortTime 4 使用24小时格式（hh:mm）显示时间。
 
<hr>
示例：
 
<%

response.write formatdatetime(now,0)&" "

response.write formatdatetime(now,1)&" "

response.write formatdatetime(now,2)&" "

response.write formatdatetime(now,3)&" "

response.write formatdatetime(now,4)&" "

%>
<hr>
显示如下：
 
2007-9-5 1:52:27
 
2007年9月5日
 
2007-9-5
 
1:52:27
 
01:52
 
<%
'月份转换到中文
Function MonthToCH(TheMonth)
Dim mm
mm=split("一,二,三,四,五,六,七,八,九,十,十一,十二",",")
If IsNumeric(TheMonth) Then
MonthToCH = mm(TheMonth-1) & "月份"
Else
MonthToCH = " 月份"
End If
End Function

'月份转换到长英文
Function MonthToLongEN(TheMonth)
Dim mm
mm=split("January,February,March,April,May,June,July,August,September,October,November,December",",")
If IsNumeric(TheMonth) Then
MonthToLongEN = mm(TheMonth-1)
Else
MonthToLongEN = " "
End If
End Function

'月份转换到短英文
Function MonthToShortEN(TheMonth)
Dim mm
mm=split("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec",",")
If IsNumeric(TheMonth) Then
MonthToShortEN = mm(TheMonth-1)
Else
MonthToShortEN = " "
End If
End Function
%>

获取当前月份，ASP输出：<%=MonthToCH(Month(now()))%>
 
 
获取当前月份，ASP输出：<%=MonthToLongEN(Month(now()))%>
 
 
获取当前月份，ASP输出：<%=MonthToShortEN(Month(now()))%>
 
<%
'================================================
 '函数名：FormatDate
 '作用：格式化日期
 '参数：DateAndTime ----原日期和时间
 ' para ----日期格式
 '返回值：格式化后的日期
 '================================================

 Public Function FormatDate(DateAndTime, para)

 On Error Resume Next
 Dim y, m, d, h, mi, s, strDateTime
 FormatDate = DateAndTime
 If Not IsNumeric(para) Then Exit Function
 If Not IsDate(DateAndTime) Then Exit Function
 y = CStr(Year(DateAndTime))
 m = CStr(Month(DateAndTime))
 If Len(m) = 1 Then m = "0" & m
 d = CStr(Day(DateAndTime))
 If Len(d) = 1 Then d = "0" & d
 h = CStr(Hour(DateAndTime))
 If Len(h) = 1 Then h = "0" & h
 mi = CStr(Minute(DateAndTime))
 If Len(mi) = 1 Then mi = "0" & mi
 s = CStr(Second(DateAndTime))
 If Len(s) = 1 Then s = "0" & s

 Select Case para

 Case "1"
 '显示格式：09年07月06日 13:44
 strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s

 Case "2"
 '显示格式：2009-07-06
 strDateTime = y & "-" & m & "-" & d

 Case "3"
 '显示格式：2009/07/06
 strDateTime = y & "/" & m & "/" & d

 Case "4"
 '显示格式：2009年07月06日
 strDateTime = y & "年" & m & "月" & d & "日"

 Case "5"
 '显示格式：07-06 13:45
 strDateTime = m & "-" & d & " " & h & ":" & mi

 Case "6"
 '显示格式：07/06
 strDateTime = m & "/" & d

 Case "7"
 '显示格式：07月06日
 strDateTime = m & "月" & d & "日"

 Case "8"
 '显示格式：2009年07月
 strDateTime = y & "年" & m & "月"

 Case "9"
 '显示格式：2009-07
 strDateTime = y & "-" & m

 Case "10"
 '显示格式：2009/07
 strDateTime = y & "/" & m

 Case "11"
 '显示格式：09年07月06日 13:45
 strDateTime = right(y,2) & "年" &m & "月" & d & "日 " & h & ":" & mi

 Case "12"
 '显示格式：09-07-06
 strDateTime = right(y,2) & "-" &m & "-" & d

 Case "13"
 '显示格式：07-06
 strDateTime = m & "-" & d

 Case "14"
 '显示格式：13:45
 strDateTime = h & ":" & mi

 Case Else

 strDateTime = DateAndTime

 End Select

 FormatDate = strDateTime

 End Function

%>
 
获取当前月份，ASP输出：<%=FormatDate(now(),13)%>
 
 
获取当前月份，ASP输出：<%=FormatDate(now(),11)%>
 
<hr>
把这段代码放入你的Function里就可以直接用了
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 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
case 6
'yyyymmddhhmmss
format_time= y & m & d & h & mi & s
End Select
End Function
%>