office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2017-12-23 10:55:00
tmtony8
原創
6712

有網友在論罎髮帖求助《關於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)。


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

    分享