WEB开发网
开发学院WEB开发ASP ASP数字加词缀转成英文序数词 阅读

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。

Tags:ASP 数字 词缀

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接