获取去年九月的日期

Question

如何获得最后九月第一天的日期？

示例：

• 如果日期是2017年2月4日，那么去年9月是2016年9月1日
• 如果日期是2017年11月5日，那么去年9月是2017年9月1日

Answer 1

您可以使用单行代码：

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

如果＆＃34;去年9月＆＃34;将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日应该发生的事情 - 您可能需要将>更改为>=。