程序代码
-
ฟังก์ชั่นส่วนตัว PNum (หมายเลข ByVal)
Dim tmp ต่อ
ถ้า IsNumeric( number ) = False แล้ว
PNum = ค่าว่าง
อื่น
เลือกกรณี CInt( ขวา( หมายเลข 2 ) )
กรณีที่ 11, 12, 13
ต่อ = "th"
กรณีอื่น
tmp = ขวา (หมายเลข 1)
เลือกกรณี CInt( tmp )
กรณีที่ 1
ต่อ = "เซนต์"
กรณีที่ 2
ต่อ = "nd"
กรณีที่ 3
ต่อ = "ถ"
กรณีอื่น
ต่อ = "th"
สิ้นสุดการเลือก
สิ้นสุดการเลือก
PNum = CStr( ตัวเลข & ต่อ )
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
数字加st、nd、rd、th构成序数词函数，比如
程序代码
Response.Write PNum("123456789")
会返回
引用内容
123456789
，英文站点较为常用的一个函数，如果输入字符串则返回Null。