Ms access 得到去年九月的日期
如何获取去年9月第一天的日期 例如:Ms access 得到去年九月的日期,ms-access,vba,Ms Access,Vba,如何获取去年9月第一天的日期 例如: 如果日期是2017年2月4日,那么最后一个9月是2016年9月1日 如果日期是2017年11月5日,那么最后一个9月是2017年9月1日 DateSerial是你的朋友 函数LastSeptemberOne()作为日期 暗淡的耳朵像长的一样 如果日期>日期序列(年(日期),9,1),则 lYear=年份(日期) 其他的 lYear=年份(日期)-1 如果结束 LastSeptemberOne=DateSerial(lYear,9,1) 端函数 您还没有定
- 如果日期是2017年2月4日,那么最后一个9月是2016年9月1日
- 如果日期是2017年11月5日,那么最后一个9月是2017年9月1日
DateSerial
是你的朋友
函数LastSeptemberOne()作为日期
暗淡的耳朵像长的一样
如果日期>日期序列(年(日期),9,1),则
lYear=年份(日期)
其他的
lYear=年份(日期)-1
如果结束
LastSeptemberOne=DateSerial(lYear,9,1)
端函数
您还没有定义9月1日应该发生什么-您可能需要将
更改为=
日期序列
是您的朋友
函数LastSeptemberOne()作为日期
暗淡的耳朵像长的一样
如果日期>日期序列(年(日期),9,1),则
lYear=年份(日期)
其他的
lYear=年份(日期)-1
如果结束
LastSeptemberOne=DateSerial(lYear,9,1)
端函数
您还没有定义9月1日应该发生什么-您可能需要将
更改为=
您可以使用一行代码:
DateSeptemberFirst = DateSerial(Year(Date) - 1 + Month(Date) \ 10, 9, 1)
如果“去年9月”包括当前9月,则将10更改为9
请注意带反斜杠的整数除法。您可以使用一行:
DateSeptemberFirst = DateSerial(Year(Date) - 1 + Month(Date) \ 10, 9, 1)
如果“去年9月”包括当前9月,则将10更改为9
请注意带反斜杠的整数除法。2017年9月1日和2017年9月2日发生了什么?2017年9月1日和2017年9月2日发生了什么?我知道我的解决方案有点笨拙。:)我知道我的解决方案有点笨拙