ASP中如何在网页上输入中文日期
2008-02-23 09:42:25来源:互联网 阅读 ()
< %
’======================================================
’ 函数 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())
%>
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash