求助！Access英文日期（已解决）

wuqiong1129

报表里的一个控件为"Date()"显示当前日期，但是日期的格式希望用英文表达，比如2017/12/22，表达出来为“22nd Dec 2017”，其他都好搞定，现在的问题是“日”，需要“*”&"1"表达为“*1st”，"*"&"2"表达为“*2nd”，“*”&"3"表达为"*3rd"，3以上的用"th"，不知道该怎么设置，求支招！
之前在网上查了一下，用mid和mod解决了。
具体为：“=Format(Date(),"dd") & Mid("thstndrdthththththth",(DatePart("d",Date()) Mod 10)*2+1,2)”这样可以完美解决“日”表达，如果要加上年月只需要在文本框里后面用“&”连接“Format(Date(),"mmm yyyy")”
比如需要表达“2017/12/25”为“25th Dec 2017”的话只需要在文本框写入“=Format(Date(),"dd") & Mid("thstndrdthththththth",(DatePart("d",Date()) Mod 10)*2+1,2) & " " & Format(Date(),"mmm yyyy")”
注：该表达式表达为当前系统日期


希望对有同样需要的朋友帮助！

wuqiong1129

求高手支招！

admin

自定义一个函数。可以看这里
http://www.office-cn.net/access-graph/502.html

wuqiong1129

admin 发表于 2017-12-23 11:11
自定义一个函数。可以看这里
http://www.office-cn.net/access-graph/502.html

谢谢，我刚看见，之前在网上查了一下，用mid和mod解决了。具体为“=Format(Date(),"dd") & Mid("thstndrdthththththth",(DatePart("d",Date()) Mod 10)*2+1,2)”这样可以完美解决“日”表达，如果要加上年月只需要在文本框里后面用“&”连接“Format(Date(),"mmm yyyy")”，比如需要表达“2017/12/25”为“25th Dec 2017”的话只需要在文本框写入“=Format(Date(),"dd") & Mid("thstndrdthththththth",(DatePart("d",Date()) Mod 10)*2+1,2) & " " & Format(Date(),"mmm yyyy")”注：该表达式表达为当前系统日期