Visual Basic .NET

    Function TH(ByVal Number) As String

        '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