access查询出生日期格式转换_关于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)。

文章发布有点仓促，如有错误，请斧正