Question

我有一个简单的问题，但我似乎无法找到一个anwser。

我想执行代码：

if当前日期＆lt; 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

Answer 1

试试这个：

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

如果是4月1日之后执行代码

1 个答案: