Date 如果在4月1日之后，则执行代码

我有一个简单的问题，但似乎找不到答案

我要执行以下代码：

如果当前日期<4月1日，则

做事

否则

做其他事情

end if

我认为这很简单，因为我可以按自己的方式获取日期并格式化，但问题是当用户有不同的日期格式时。我是这样做的：

Private Sub UserForm_Initialize()

Dim rok As Long, rok_kontrola As Date

rok = Format(Date, "yyyy")
rok_kontrola = Format(Date, "dd-mm-yyyy")

If rok_kontrola < "01-04-" & rok Then
    Me.Controls("rok1").Value = True
Else
    Me.Controls("rok2").Value = True
End If

End Sub

Private子用户表单_Initialize（）
Dim rok尽可能长，rok_kontrola尽可能长
rok=格式（日期，“yyyy”）
rok_kontrola=格式（日期，“dd-mm-yyy”）
如果rok_kontrola<“01-04-”和rok，则
Me.Controls（“rok1”）.Value=True
其他的
Me.Controls（“rok2”）.Value=True
如果结束
端接头
试试这个：

If Date < DateSerial(Year(Date), 4, 1) Then
    Me.Controls("rok1").Value = True
Else
    Me.Controls("rok2").Value = True
End If

如果日期
DateSerial，这正是我所需要的。非常感谢。现在单击应用按钮还为时过早，但我会；）