Add Ordinal Extension to a Number
This little code snippet adds extensions such as st, nd, rd, th to integer numbers. Useful also with SSRS under Report Properties > Code
Public Function ChangeToOrdinal(ByVal digit As Integer) As String
Dim residual As Integer = digit Mod 10
Dim extension As String
If digit > 20 Or digit < 10 Then
Select Case residual
Case Is = 1
extension = "st"
Case Is = 2
extension = "nd"
Case Is = 3
extension = "rd"
Case Else
extension = "th"
End Select
Else
extension = "th"
End If
Return CStr(digit) & extension
End Function