注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

将阿拉伯数字日期转换为中文数字日期格式(ASP)  

2011-06-04 19:29:04|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

   刚才看到一个兄弟提的问题,做完了才发现已经结贴,郁闷呀~~
只是看到这个东西还算有用,所以贴出来自赏呵呵
思路:
一开始想到用select,用for循环将每位阿拉伯数字转换成对应的中文,然后想到其实可以用数组,这样子比较少些代码,毕竟0~9,可以对应起来,可是~问题出现了,对于10~31,要变成贰拾壹 这样格式,呵呵~加一个判断,嗯~11可不能转换成壹拾壹,在加判断
呵呵~基本好了,还需要判断是不是数字呢,ok!这下子应该是可以over了!
%
t=Now()
Function datetostr(t)
Dim strYear,strMonth,strDay,strResult
strYear = Year(t)
strMonth = Month(t)
strDay = Day(t)
datetostr = casei(strYear)  "年"  casei(strMonth)  "月"  casei(strDay)  "日"
End Function
Function casei(i)
Dim arrNum,arrCNNum
If(IsNumeric(i))Then
 arrNum = Split(i)
 arrCNNum=Split("零,壹,贰,叁,肆,伍,陆,柒,捌,玖",",")
 If( i10 OR i31)Then
 For it=1 To Len(i)
 strResult = strResult  arrCNNum(CInt(Mid(i,it,1)))
 Next
 ElseIf(i  9 AND i  12)Then
 strResult = "拾"  arrCNNum(CInt(Mid(i,2,1)))
 Else
 strResult = arrCNNum(CInt(Mid(i,1,1)))  "拾"  arrCNNum(CInt(Mid(i,2,1)))
 End I
End I
casei = strResult
End Function
Response.Write(datetostr(t))
%

  评论这张
 
阅读(71)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017