• THE TH PROJECT
  • BATCH
  • C
  • C#
  • Fortran
  • Javascript
  • Natural
  • SQL User Defined Function
  • Visual Basic Script
  • Visual Basic .NET
  • CONTACT
© 2025 CLXII

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