主题：修改代码

Dim d As Date = vars("cc")

Dim day As Integer = d.day

If day = 31 Or day = 30 Or day = 28 Or day = 29 Then

    Forms("资产负债表").Open()

Else

    MessageBox.Show("输入日期不对!")

End If

如何将这句代码：如果是输入日期是月未的意思If day = 31 Or day = 30 Or day = 28 Or day = 29 Then

如何修改一下