The Ordinal Number Function

• • Reply

  11 years ago

  by burtonrodman

  Burton Rodman

  around, United States

  Joined 11 years ago
  May I offer this much simpler version: Public Function ToOrdinal(ByVal value As Integer) As String If value Mod 100 > 10 And value Mod 100 < 20 Then Return value.ToString & "th" Else Select Case value Mod 10 Case 1 Return value.ToString & "st" Case 2 Return value.ToString & "nd" Case 3 Return value.ToString & "rd" Case Else Return value.ToString & "th" End Select End If End Function
  Report abuse