DisplayWithSuffix

Use as a simple Humanizer for numbers

Source

Public Function DisplayWithSuffix(num As Integer) As String
	If num.ToString().EndsWith("11") Then
		Return num.ToString() & "th"
	End If
	If num.ToString().EndsWith("12") Then
		Return num.ToString() & "th"
	End If
	If num.ToString().EndsWith("13") Then
		Return num.ToString() & "th"
	End If
	If num.ToString().EndsWith("1") Then
		Return num.ToString() & "st"
	End If
	If num.ToString().EndsWith("2") Then
		Return num.ToString() & "nd"
	End If
	If num.ToString().EndsWith("3") Then
		Return num.ToString() & "rd"
	End If
	Return num.ToString() & "th"
End Function

Example

Date1.Day.DisplayWithSuffix

If Date1.Day =13 then result is "13th"

Author: Mike Robertson

Submitted on: 9 mei 2025

Language: vb

Type: String