Al desarrollar un libro de trabajo, es posible que tenga que colocar sufijos como «st, nd, rd o th» al final de las fechas, como en «9 de marzo».

Desafortunadamente, no hay forma de hacer esto usando los formatos de fecha integrados que puede aplicar a celdas individuales. Puede crear formatos personalizados para cada uno de los cuatro tipos de sufijo, si lo desea, pero deberían aplicarse individualmente según el contenido de la celda.

La única otra opción es utilizar algún tipo de fórmula de conversión. Estos son bastante fáciles de armar, pero la celda resultante no contendrá una fecha real de Excel, sino texto. Esto impide que el contenido de la celda se utilice en otras funciones relacionadas con la fecha. El siguiente es un ejemplo del tipo de fórmula de conversión que puede utilizar:

=DAY(A1)&IF(OR(DAY(A1)={1,2,3,21,22,23,31}), CHOOSE(1*RIGHT(DAY(A1),1),"st","nd ","rd "),"th")

&TEXT(A1,"mmmm, yyyy")

Hay otros, pero todos hacen esencialmente lo mismo: separar las distintas partes de una fecha y volver a unirlas con el sufijo adecuado.

Si lo prefiere, también puede crear una función de macro que devuelva una fecha con el formato adecuado, con el sufijo ordinal. La siguiente es una de esas macros:

Function OrdinalDate(myDate As Date)

Dim dDate As Integer     Dim dText As String     Dim mDate As Integer     Dim mmmText As String

dDate = Day(myDate)

mDate = Month(myDate)



Select Case dDate         Case 1: dText = "st"

Case 2: dText = "nd"

Case 3: dText = "rd"

Case 21: dText = "st"

Case 22: dText = "nd"

Case 23: dText = "rd"

Case 31: dText = "st"

Case Else: dText = "th"

End Select

Select Case mDate         Case 1: mmmText = " January"

Case 2: mmmText = " February"

Case 3: mmmText = " March"

Case 4: mmmText = " April"

Case 5: mmmText = " May"

Case 6: mmmText = " June"

Case 7: mmmText = " July"

Case 8: mmmText = " August"

Case 9: mmmText = " September"

Case 10: mmmText = " October"

Case 11: mmmText = " November"

Case 12: mmmText = " December"

End Select

OrdinalDate = dDate & dText & mmmText End Function

Utiliza la macro simplemente invocándola dentro de una fórmula de celda. Por ejemplo, si tiene una fecha almacenada en la celda B7, puede usar lo siguiente en cualquier otra celda:

=OrdinalDate(B7)

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (10033) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

enlace: / excel-Adding_Ordinal_Notation_to_Dates [Adición de notación ordinal a las fechas].