Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ms-access/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 得到去年九月的日期_Ms Access_Vba - Fatal编程技术网

Ms access 得到去年九月的日期

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) 端函数 您还没有定

如何获取去年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)
      端函数
      

      您还没有定义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日发生了什么?我知道我的解决方案有点笨拙。:)我知道我的解决方案有点笨拙