關(guān)於Access日期幾號(hào)到第幾天的轉(zhuǎn)換

有網(wǎng)友在論罎髮帖求助《關(guān)於Access日期問(wèn)題》 希望當(dāng)前日期格式用英文錶達(dá)，如2017/12/22，錶達(dá)齣來(lái)爲(wèi)“22nd Dec 2017”

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

小編查瞭一下資料，髮現(xiàn)好像沒(méi)有直接轉(zhuǎn)換的蔘數(shù)。所以這裡隻能自定義一箇函數(shù)來(lái)轉(zhuǎn)換

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

在報(bào)錶中引用函數(shù)。控件來(lái)源=RadixtoOrdinal(Day(Date())) & " " & Format(Date(),"mmm yyyy")

註意，format蔘數(shù)的月份有幾種寫(xiě)法：

m :  以沒(méi)有前導(dǎo)零的數(shù)字來(lái)顯示月 (1 – 12)。如果 m 是直接跟在 h 或 hh 之後，那麼顯示的將是分而不是月。
mm :  以有前導(dǎo)零的數(shù)字來(lái)顯示月 (01 – 12)。如果m是直接跟在h或hh之後，那麼顯示的將是分而不是月。
mmm :  以簡(jiǎn)寫(xiě)來(lái)錶示月 (Jan –Dec)。
mmmm :  以全稱(chēng)來(lái)錶示月 (January –December)。

文章髮佈有點(diǎn)倉(cāng)促，如有錯(cuò)誤，請(qǐng)斧正