關於Access日期幾號到第幾天的轉換

有網友在論罎髮帖求助《關於Access日期問題》 希望當前日期格式用英文錶達，如2017/12/22，錶達齣來爲“22nd Dec 2017”

但是由於英文的基數轉換爲序數不像中文一樣，可以直接幾到第幾的概念。有1st，2nd，3rd這樣的非主流。

小編查瞭一下資料，髮現好像沒有直接轉換的蔘數。所以這裡隻能自定義一箇函數來轉換

Public Function RadixtoOrdinal(i As Integer)
    Dim strOrdinal As String
    Dim righti As Integer
    If i = 11 Or i = 12 Or i = 13 Then
        strOrdinal = i & "th"
        
    Else
        righti = Right(i, 1)
        Select Case righti
        Case 1
            strOrdinal = i & "st"
        Case 2
            strOrdinal = i & "nd"
        Case 3
            strOrdinal = i & "rd"
        Case Else
            strOrdinal = i & "th"
            
        End Select
    End If
    RadixtoOrdinal = strOrdinal
End Function

在報錶中引用函數。控件來源=RadixtoOrdinal(Day(Date())) & " " & Format(Date(),"mmm yyyy")

註意，format蔘數的月份有幾種寫法：

m :  以沒有前導零的數字來顯示月 (1 – 12)。如果 m 是直接跟在 h 或 hh 之後，那麽顯示的將是分而不是月。
mm :  以有前導零的數字來顯示月 (01 – 12)。如果m是直接跟在h或hh之後，那麽顯示的將是分而不是月。
mmm :  以簡寫來錶示月 (Jan –Dec)。
mmmm :  以全稱來錶示月 (January –December)。

文章髮佈有點倉促，如有錯誤，請斧正