获取去年9月的日期

Question

如何获取日期的第一天最近九月？

例子：

• 如果日期是2017年2月04日，那么去年九月份是2016年9月1日
• 如果是2017年11月5日则去年九月份是9月01日的日期，2017年

Answer 1

你可能有一个班轮做：

DateSeptemberFirst = DateSerial(Year(Date) - 1 + Month(Date) \ 10, 9, 1) 

变化10比9，如果“去年九月”包括当前月。

注意整数部分带有反斜杠。

Answer 2

DateSerial是你的朋友。

Function LastSeptemberOne() As Date 

    Dim lYear As Long 

    If Date > DateSerial(Year(Date), 9, 1) Then 
     lYear = Year(Date) 
    Else 
     lYear = Year(Date) - 1 
    End If 

    LastSeptemberOne = DateSerial(lYear, 9, 1) 

End Function 

您尚未定义应该发生在9月1号是什么 - 你可能需要改变>到>=。