ASP数字加词缀转成英文序数词

程序代码

<%

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。