Visual Basic Script

Function TH(Number)

    'Prototyped by: John Naudus

    Dim strNumber

    If Number = 0 then
        TH = ""
    Else
        If Right(Number, 2) < 14 then
            strNumber = Cint(Right(Number, 2))
        Else
            strNumber = Cint(Right(Number, 1))
        End If

        Select case strNumber
            Case 1
                TH = "^st"
            Case 2
                TH = "^nd"
            Case 3
                TH = "^rd"
            Case else
                TH = "^th"
        End Select
    End If
End Function