主题：修改代码

Dim d As Date = vars("cc")
Dim Days As Integer = Date.DaysInMonth(d.Year,d.Month)
If days = d.Day Then
    Forms("资产负债表").Open()
Else
    MessageBox.Show("输入日期不对!")
End If

http://www.foxtable.com/help/topics/0265.htm