ASP数字加词缀转成英文序数词
2009-05-07 10:39:46 来源:WEB开发网核心提示:程序代码<%PRivate Function PNum(ByVal number) Dim tmp, ext If IsNumeric( number ) = False Then PNum = Null Else Select Case CInt( Right( number, 2 ) ) Case
程序代码
<%
PRivate Function PNum(ByVal number)
Dim tmp, ext
If IsNumeric( number ) = False Then
PNum = Null
Else
Select Case CInt( Right( number, 2 ) )
Case 11, 12, 13
ext = "th"
Case Else
tmp = Right( number, 1 )
Select Case CInt( tmp )
Case 1
ext = "st"
Case 2
ext = "nd"
Case 3
ext = "rd"
Case Else
ext = "th"
End Select
End Select
PNum = CStr( number & ext )
End If
End Function
%>
数字加st、nd、rd、th构成序数词函数,比如
程序代码
Response.Write PNum("123456789")
会返回
引用内容
123456789th
,英文站点较为常用的一个函数,如果输入字符串则返回Null。
- ››asp.net页面弄成伪静态页面
- ››Asp.net 中将汉字转换成拼音的方法
- ››ASP.NET及JS中的cookie基本用法
- ››ASP.NET获取MS SQL Server安装实例
- ››asp.net实现调用百度pai 在线翻译英文转中文
- ››ASP.NET页面选项进行提示判断
- ››Asp.net定时执行程序
- ››ASP.NET中利用DataList实现图片无缝滚动
- ››ASP.NET验证控件RequiredFieldValidator
- ››ASP.NET中使用System.Net.Mail发邮件
- ››ASP.NET中获取用户控件中控件的ID
- ››ASP.NET中FileBytes写成文件并存档
更多精彩
赞助商链接