Do not think what is built in there. But it's pretty easy to copy / paste one of the blog post :
Protected Function FormatPostedTimeWithDayNumberSuffix(Optional ByVal format As String = "MMMM d{0}, yyyy") As String Dim dateTime As DateTime = Date.Parse(Entry.PostedTime) If Not Null.IsNull(dateTime) Then Dim formatTime As String = dateTime.ToString(format) Dim day As Integer = dateTime.Day Dim dayFormat As String = String.Empty Select Case day Case 1, 21, 31 dayFormat = "st" Case 2, 22 dayFormat = "nd" Case 3, 23 dayFormat = "rd" Case Else dayFormat = "th" End Select Return String.Format(formatTime, dayFormat) End If Return Entry.PostedTime End Function
source share