安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

关于Access日期几号到第几天的转换

2017-12-23 10:55:00
tmtony8
原创
1657

有网友在论坛发帖求助《关于Access日期问题》 希望当前日期格式用英文表达,如2017/12/22,表达出?#27425;?2nd Dec 2017”

但是由于英文的基数转换为序数不像中文一样,可以直接几到第几的概念。有1st,2nd,3rd这样的非主流。


小编查了一下资?#24076;?#21457;现好像没有直接转换的参数。所以这里只能自定义一个函数来转换

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参数的月份有几?#20013;?#27861;:

m :  以没有前导零的数字来显示月 (1 – 12)。如果 m 是直接跟在 h 或 hh 之后,那么显示的将是分而不是月。
mm :  以有前导零的数字来显示月 (01 – 12)。如果m是直接跟在h或hh之后,那么显示的将是分而不是月。
mmm :  以简写来表示月 (Jan –Dec)。
mmmm :  以全称来表示月 (January –December)。


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

    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:8.00MB
    PHP 执行时间:0.18
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假