Using a Two-Character Day of the Week in a Date Format

Raymond's work requires that he format dates so they show in what he believes is a rather odd format. If, for instance, a cell contains a date of 3/20/26, he needs it to display as "FR 3/20", without the quotes. (FR is a two-character representation of the day of the week, in this case Friday.) Raymond wonders if there is a way to do this as, perhaps, a custom format.

There is no way to do this exactly using a custom format. The reason is that there is no code in custom formats that allow you to create a two-character day of the week. The closest that could be done in a custom format is for a three-character day of the week:

ddd m/d

Even that, though, is a bit off because it won't do the three-character day of the week in uppercase. If you tried to replace "ddd" in the custom format with "dd," that won't work because it would simply return a two-digit day of the month.

So, that leads us to using a formula to come up with the formatted date. If you have the date in cell A1, you could use the following formula:

=LEFT(UPPER(TEXT(A1,"ddd")), 2) & " " & TEXT(A1,"m/d")

This uses the TEXT function to return, first, the three-character day of the week which is converted to uppercase using the UPPER formula. The LEFT function is then used to grab the first two characters of that weekday which is then added to the month/day combination. This returns exactly what Raymond wanted.

The downside to using this approach is that the date returned by the formula is text; it is not an actual date. If we had been able to use a custom format, the underlying date value would have been unchanged. This, though, would be the case for any odd date formatting like this. Because of this potential downside, you may want to retain the actual dates as dates, even if it is in a hidden column or a hidden worksheet.

You could also, if desired, create a macro that would return a string with the formatted date. Here's a simple user-defined function:

Function FmtDate(d As Date) As String
    Dim s As String

    s = UCase(Left(WeekdayName(Weekday(d)), 2))
    s = s & " " & Format(d, "m/d")
    FmtDate = s
End Function

You can then use the function in the following way in your worksheet:

=FmtDate(A1)

This assumes the date is in A1, and the function returns a date string formatted as Raymond desires.

ExcelTips is your source for cost-effective Microsoft Excel training. This tip (13704) applies to Microsoft Excel 2007, 2010, 2013, 2016, 2019, 2021, 2024, and Excel in Microsoft 365.