Office中国论坛/Access中国论坛

标题: 求助！Access英文日期（已解决） [打印本页]

作者: wuqiong1129 时间: 2017-12-22 19:39
标题: 求助！Access英文日期（已解决）
本帖最后由 wuqiong1129 于 2017-12-25 10:27 编辑

报表里的一个控件为"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 时间: 2017-12-23 07:50
求高手支招！

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

作者: wuqiong1129 时间: 2017-12-25 10:08

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")”注：该表达式表达为当前系统日期

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)