Excel 如何根据当前日期是否在10月之前输出值？

如果当前日期在10月1日之前，我希望VarYear等于2021年；如果不是，则希望VarYear等于2022年

Dim NowDate作为变量
作为Var的一年
NowDate=日期
NowYear=年（NowDate）
变元
如果现在年份<10/1，则
VarYear=NowYear
如果现在年份>=10/1，则
VarYear=NowYear+1
如果结束

如果当前日期在10月1日之前，我尝试将VarYear等于2021年；如果日期在10月1日之后，则将VarYear等于2022年

这就是你想要的吗

If Date < DateSerial(2021, 10, 1) Then
    VarYear = 2021
Else
    VarYear = 2022
End If

MsgBox VarYear

如果日期

如果当前日期在10月1日之前，我尝试将VarYear等于2021年；如果日期在10月1日之后，则将VarYear等于2022年

这就是你想要的吗

If Date < DateSerial(2021, 10, 1) Then
    VarYear = 2021
Else
    VarYear = 2022
End If

MsgBox VarYear

如果日期

或更一般的方法，使用：

如果月份（日期）<10则
VarYear=年（日期）
其他的
VarYear=年份（日期）+1
如果结束

或更一般的方法，使用：

如果月份（日期）<10则
VarYear=年（日期）
其他的
VarYear=年份（日期）+1
如果结束

这将每年使用一次。除了10月，没有硬编码：

Option Explicit
Const OCTOBER = 10

Sub test()
  Debug.Print (ReturnNextYearIfPastSeptember())
End Sub

Function ReturnNextYearIfPastSeptember()
  Dim NowDate As Date
  Dim NowMonth As Integer
  Dim VarYear As Integer
    
  NowDate = Now()
  NowMonth = Month(NowDate)
  VarYear = Year(NowDate)
  If NowMonth >= OCTOBER Then VarYear = VarYear + 1
  ReturnNextYearIfPastSeptember = VarYear
End Function

---

这将与每年的工作。除了10月，没有硬编码：

Option Explicit
Const OCTOBER = 10

Sub test()
  Debug.Print (ReturnNextYearIfPastSeptember())
End Sub

Function ReturnNextYearIfPastSeptember()
  Dim NowDate As Date
  Dim NowMonth As Integer
  Dim VarYear As Integer
    
  NowDate = Now()
  NowMonth = Month(NowDate)
  VarYear = Year(NowDate)
  If NowMonth >= OCTOBER Then VarYear = VarYear + 1
  ReturnNextYearIfPastSeptember = VarYear
End Function

---

您使用的是

年

，但我想您的意思是

月

10/1

？你想用那句话做什么？如果是10月1日，那么您所做的是不正确的。您使用的是

年

，但我认为您的意思是

月

10/1

？你想用那句话做什么？如果是10月1日，那么你所做的是不正确的。即使用户没有提到年份，只说了10月1日，最好包括年份，否则如果在2020年11月1日或2022年11月1日或任何其他年份运行，该代码将给出不同的结果（2022年除外）：这起作用了！谢谢！++对即使用户没有提到年份，只说了10月1日，最好包括年份，否则如果在2020年11月1日或2022年11月1日或任何其他年份运行，该代码将给出不同的结果（2022年除外）：这起作用了！非常感谢。很抱歉没有具体说明，但输出/输入不能是特定于年份的。我想其他的评论就是我想要的。谢谢你的回复！很抱歉没有具体说明，但输出/输入不能是特定于年份的。我想其他的评论就是我想要的。谢谢你的回复！