獲取去年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號是什麼 - 你可能需要改變>到>=。