Tilføjelse Ordinal Notation til datoer

Ved udvikling af en projektmappe, kan du have behov for at placere suffikser som "st, nd, rd, eller th" i slutningen af ​​datoer, som i "9 mar." Desværre er der ingen måde at gøre dette ved hjælp af de indbyggede datoformater du kan anvende på de enkelte celler. Du kan oprette tilpassede formater til hver af de fire suffix typer, hvis det ønskes, men de skulle anvendes individuelt baseret på indholdet af selve cellen.

Den eneste anden mulighed er at bruge en form for konvertering formel. Disse er let nok at sætte sammen, men den resulterende celle, vil ikke indeholde en sand Excel dato, men tekst. Dette udelukker celleindholdet bliver brugt i anden dato-relaterede funktioner. Det følgende er et eksempel på den type konvertering formel, du kan bruge:

= Dag (A1) & IF (OR (DAY (A1) = {1,2,3,21,22,23,31}),
VÆLG (1 * HØJRE (DAY (A1), 1), "st", "nd", "rd"), "th")
& TEKST (A1, "mmmm, yyyy")

Der er andre, men de har alle væsentlige gør det samme, trække de forskellige dele af en dato fra hinanden og sætte dem sammen igen med den rette endelse.

Hvis du foretrækker det, kan du også oprette en makrofunktion, der ville returnere en korrekt formateret dato med ordenstal endelsen. Følgende er en sådan makro:

Funktion OrdinalDate (myDate som dato)
Dim dDate As Integer
Dim dText As String
Dim mDate As Integer
Dim mmmText As String

dDate = Day (myDate)
mDate = Måned (myDate)

Vælg 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

Vælg Case mDate
Case 1: mmmText = "Januar"
Case 2: mmmText = "Februar"
Case 3: mmmText = "marts"
Case 4: mmmText = "April"
Case 5: mmmText = "May"
Case 6: mmmText = "Juni"
Case 7: mmmText = "Juli"
Case 8: mmmText = "August"
Case 9: mmmText = "September"
Case 10: mmmText = "Oktober"
Case 11: mmmText = "November"
Case 12: mmmText = "December"
End Select

OrdinalDate = dDate & dText & mmmText
End Function

Du bruger makroen ved blot at påberåbe sig det i en celle formel. For eksempel, hvis du har en dato gemt i celle B7, kan du bruge følgende i en anden celle:

= OrdinalDate (B7)

ExcelTips er din kilde til omkostningseffektiv Microsoft Excel træning. Dette tip (10033) gælder for Microsoft Excel 2007, 2010 og 2013. Du kan finde en version af dette tip for den ældre menu interface Excel her: Tilføjelse Ordinal Notation til datoer.


© 2022 Zajacperrone.com | Contact us: webmaster# zajacperrone.com