获得ASP的中文日期字符串
2004-08-07 10:46
351 查看
我们通常需要在WEB页面上写上当前的日期,可能使用客户端script ,或者使用ASP。使用ASP的一个特点是,它产生的效果看起来是静态的页面,但实际上它是动态生成的。如果你希望用ASP显示一个中文的日期,则需要转化一下。下面是用来转化的函数及其调用实例。
<<<< 函数实现 >>>>
<%
'======================================================
' 函数 Date2Chinese
' 功能:获得中文日期的字符串(如一九九八年五月十二日)
' 参数: iDate 要转化的日期
' 返回: 中文日期的字符串
'======================================================
Function Date2Chinese(iDate)
Dim num(10)
Dim iYear
Dim iMonth
Dim iDay
num(0) = "〇"
num(1) = "一"
num(2) = "二"
num(3) = "三"
num(4) = "四"
num(5) = "五"
num(6) = "六"
num(7) = "七"
num(8) = "八"
num(9) = "九"
iYear = Year(iDate)
iMonth = Month(iDate)
iDay = Day(iDate)
Date2Chinese = num(iYear / 1000) + _
num((iYear / 100) Mod 10) + num((iYear _
/ 10) Mod 10) + num(iYear Mod _
10) + "年"
If iMonth >= 10 Then
If iMonth = 10 Then
Date2Chinese = Date2Chinese + _
"十" + "月"
Else
Date2Chinese = Date2Chinese + _
"十" + num(iMonth Mod 10) + "月"
End If
Else
Date2Chinese = Date2Chinese + _
num(iMonth Mod 10) + "月"
End If
If iDay >= 10 Then
If iDay = 10 Then
Date2Chinese = Date2Chinese + _
"十" + "日"
ElseIf iDay = 20 Or iDay = 30 Then
Date2Chinese = Date2Chinese + _
num(iDay / 10) + "十" + "日"
ElseIf iDay > 20 Then
Date2Chinese = Date2Chinese + _
num(iDay / 10) + "十" + _
num(iDay Mod 10) + "日"
Else
Date2Chinese = Date2Chinese + _
"十" + num(iDay Mod 10) + "日"
End If
Else
Date2Chinese = Date2Chinese + _
num(iDay Mod 10) + "日"
End If
End Function
%>
<<<< 调 用 举 例 >>>>
<%
response.write date2Chinese(date())
%>
<<<< 函数实现 >>>>
<%
'======================================================
' 函数 Date2Chinese
' 功能:获得中文日期的字符串(如一九九八年五月十二日)
' 参数: iDate 要转化的日期
' 返回: 中文日期的字符串
'======================================================
Function Date2Chinese(iDate)
Dim num(10)
Dim iYear
Dim iMonth
Dim iDay
num(0) = "〇"
num(1) = "一"
num(2) = "二"
num(3) = "三"
num(4) = "四"
num(5) = "五"
num(6) = "六"
num(7) = "七"
num(8) = "八"
num(9) = "九"
iYear = Year(iDate)
iMonth = Month(iDate)
iDay = Day(iDate)
Date2Chinese = num(iYear / 1000) + _
num((iYear / 100) Mod 10) + num((iYear _
/ 10) Mod 10) + num(iYear Mod _
10) + "年"
If iMonth >= 10 Then
If iMonth = 10 Then
Date2Chinese = Date2Chinese + _
"十" + "月"
Else
Date2Chinese = Date2Chinese + _
"十" + num(iMonth Mod 10) + "月"
End If
Else
Date2Chinese = Date2Chinese + _
num(iMonth Mod 10) + "月"
End If
If iDay >= 10 Then
If iDay = 10 Then
Date2Chinese = Date2Chinese + _
"十" + "日"
ElseIf iDay = 20 Or iDay = 30 Then
Date2Chinese = Date2Chinese + _
num(iDay / 10) + "十" + "日"
ElseIf iDay > 20 Then
Date2Chinese = Date2Chinese + _
num(iDay / 10) + "十" + _
num(iDay Mod 10) + "日"
Else
Date2Chinese = Date2Chinese + _
"十" + num(iDay Mod 10) + "日"
End If
Else
Date2Chinese = Date2Chinese + _
num(iDay Mod 10) + "日"
End If
End Function
%>
<<<< 调 用 举 例 >>>>
<%
response.write date2Chinese(date())
%>
相关文章推荐
- asp.net获得字符串实际长度(包括中文字符)
- asp.net获得字符串实际长度(包括中文字符)收藏
- Asp.net日期字符串格式化显示方法
- Asp.Net toString() 的妙用[处理日期,字符型转换 转为字符串]
- js中将两个日期字符串相减 获得天数
- Asp.net日期字符串格式化显示方法
- javascript获得字符串实际长度,中文2,英文1(一般微薄都是这个判断)
- Asp.Net toString() 的妙用[处理日期,字符型转换 转为字符串]
- c# 字符串日期转换成中文日期
- oracle获得日期与向oracle表中插入Date字符串原理解析
- python 中文字符串处理-获得子串
- Asp.net日期字符串格式化显示方法
- asp.net 中文字符串提交乱码的解决方法
- 获得两个日期(字符串)之间的所有日期
- Win7的IIS7中ASP获得的系统日期格式为斜杠的解决办法
- Asp.net日期字符串格式化显示
- [NET]Asp.net日期字符串格式化显示--DateTime.ToString()用法详解
- Java 按字节获得字符串(中文)长度
- Asp.net日期字符串格式化显示方法
- Asp.net日期字符串格式化显示方法