求助? 查询和筛选问题

kongwu

Function DaysInMonth(rq31date As Date) As Integer
    DaysInMonth = DateDiff("d", firstDayOfMonth(rq31date), lastDayOfMonth(rq31date)) + 1
End Function


怎么出现了这个错误啊
错误类型：
Microsoft VBScript 编译器错误 (0x800A03EE)
缺少 ')'
/pswmonup.asp, line 961, column 30
Function DaysInMonth(rq31date As Date) As Integer
-----------------------------^

[此贴子已经被作者于2004-3-2 14:05:46编辑过]