Comments on: Ordinal Days

By: Squiggler

Squiggler — Fri, 10 Dec 2010 09:28:00 +0000

I also adapted for dates :-

=SUBSTITUTE(TEXT(DateVal,"mmmm dzz, yyyy"),"zz",MID(REPLACE(REPT("thstndrdthththththth",4),23,6,"ththth"),DAY(DateVal)*2+1,2))

this will convert dates into the form "April 23rd, 2010"
"dzz of mmmm yyyy" "23rd of April 2010"
"dddd the dzz of mmmm yyyy" for "Thursday the 1st of April 2010"
"dddd mmmm dzz, yyyy" for "Thursday April 1st, 2010"

By: Rick Rothstein (MVP - Excel)

Rick Rothstein (MVP - Excel) — Wed, 08 Dec 2010 06:39:00 +0000

While Greg posted his function about a year-and-a-half ago, I thought anyone into VB code might be interested in this one-liner function I've posted several times in the past in the compiled VB newsgroups (it works for all numbers, not just date day numbers like Greg's function)...

Function Ordinal(Number As Long) As String
Ordinal = Number & Mid$("thstndrdthththththth", 1 - 2 * ((Number) Mod 10) * (Abs((Number) Mod 100 - 12) > 1), 2)
End Function

This function was actually the starting point for the formula I posted a few minutes ago.

By: Squiggler

Squiggler — Wed, 08 Dec 2010 06:13:00 +0000

It may be the shortest, but the one above has less references to change!

By: Rick Rothstein (MVP - Excel)

Rick Rothstein (MVP - Excel) — Wed, 08 Dec 2010 06:08:00 +0000

Biff (posts under the name T. Valko) and I jointly came up with this formula a couple of years ago or so... we believe it is the shortest formula to place an ordinal suffix on an whole number...

=A1&MID("thstndrdth",MIN(9,2*RIGHT(A1)*(MOD(A1-11,100)>2)+1),2)

By: Squiggler

Squiggler — Mon, 06 Dec 2010 23:10:00 +0000

=Value&MID(REPLACE(REPT("thstndrdthththththth",10),23,6,"ththth"),MOD(Value,100)*2+1,2)

Will work for any value!

=Value&MID(REPLACE(REPT("thstndrdthththththth",4),23,6,"ththth"),Value*2+1,2)

If used on dates

By: Greg

Greg — Thu, 02 Jul 2009 15:44:00 +0000

And for some reason in my reply above its not showing the amp. You have to remove the “& a m p ;” If anyone can explain this I would appreciate it.

By: Greg

Greg — Thu, 02 Jul 2009 15:37:00 +0000

For some reason when it was copied and pasted it added the "&". I no longer have the file because I was using it over a network and it was giving me problems so I just deleted it. But I believe that you can just remove the &

Thanks for trying it out

By: Boris

Boris — Thu, 02 Jul 2009 09:56:00 +0000

@Greg

I get an error with your function
& >;< Ext

Compile Error
Expected End of Statement

By: Greg

Greg — Thu, 23 Apr 2009 22:39:00 +0000

New to VB code, but it was fun and a challenge. This is what I came up with to label a header row based on a week ending date.

Function DayEx(InputDate As Date)

Dim DayNumber As String
Dim Ext As String
DayNumber = Day(InputDate)

Select Case DayNumber
Case 1, 21, 31
Ext = "st"
Case 2, 22
Ext = "nd"
Case 3, 23
Ext = "rd"
Case 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 24, 25, 26, 27, 28, 29, 30
Ext = "th"
End Select

DayEx = DayNumber & Ext

End Function

You can now use it like this...if cell K1=5/3/09

then..

=Dayex($K$1-7) gives you 26th
=Dayex($K$1-6) gives you 27th
=Dayex($K$1-5) gives you 28th
=Dayex($K$1-4) gives you 29th
=Dayex($K$1-3) gives you 30th

By: Robert B

Robert B — Mon, 10 Nov 2008 00:39:00 +0000

=CHOOSE(MIN(5,MOD(A1,10)*(MOD(INT(A1/10),10)!=1)+1),”th”,”st”,”nd”,”rd”,”th”)
where != is ‘not equals’
comment form does not permit “