调用函数时显示类型不匹配，请大家指点啊！

pxhlju

当执行到Byval Rqq时显示“ 类型不匹配”，请大侠指教啊！下面是代码：
Sub XQCX(rq As Date, zc As Integer, whyr As Integer)
'日期为需要输入的日期，zc 显示为星期几，whyr显示为第几周
Dim zc1 As Integer, zc As Integer
Dim y As Integer, m As Integer, d As Integer
Dim Ns As Date
y = Year(rq)
m = Month(rq)
d = Day(rq)
Ns = y & "-1-1"
'*************************************************
'设置查询的日期为星期几
zc = Weekday(rq) - 1
If zc = 0 Then zc = 7
'*************************************************
'设置查询的日期为第几周
zc1 = Weekday(Ns) - 1
If zc1 = 0 Then zc1 = 7
whyr = (rq - Ns + zc1 - 1) \ 7 + 1
'************************************************
End Sub

Private Sub CommandButton1_Click()
Dim Rqq As Date, xqj As Integer, djz As Integer

Rqq = InputBox("请输入日期：")
Call XQCX(ByVal Rqq, ByVal xqj, ByVal djz)

MsgBox "查询的日期是星期" & xqj & Chr(13) & "第" & djz & "周", vbOKOnly, riqi
End Sub

[ 本帖最后由 pxhlju 于 2010-11-9 18:24 编辑 ]

cflood

Call XQCX( Rqq,  xqj,  djz)试试

pxhlju

谢谢！试过，问题没解决。

cflood

没问题呀，再出错应该是变量重复声明才对

xuexi2xuexi

Sub XQCX(rq As Date, zc As Integer, whyr As Integer)
'日期为需要输入的日期，zc 显示为星期几，whyr显示为第几周
Dim zc1 As Integer   '在此删除了对zc的重复声明
Dim y As Integer, m As Integer, d As Integer
Dim Ns As Date
y = Year(rq)
m = Month(rq)
d = Day(rq)
Ns = y & "-1-1"
'*************************************************
'设置查询的日期为星期几
zc = Weekday(rq) - 1
If zc = 0 Then zc = 7
'*************************************************
'设置查询的日期为第几周
zc1 = Weekday(Ns) - 1
If zc1 = 0 Then zc1 = 7
whyr = (rq - Ns + zc1 - 1) \ 7 + 1
'************************************************
End Sub

Private Sub CommandButton1_Click()
Dim Rqq As Date, xqj As Integer, djz As Integer

Rqq = InputBox("请输入日期：")
Call XQCX(Rqq, xqj, djz)   '在此将括号内的三个“ByVal ”删除

MsgBox "查询的日期是星期" & xqj & Chr(13) & "第" & djz & "周", vbOKOnly, Rqq
End Sub

camle

看错,就是2楼老师说的几个错,改了就ok了.

[ 本帖最后由 camle 于 2010-11-9 17:49 编辑 ]

pxhlju

谢谢两位大侠！问题解决。但有个小小的疑问：调用XQCQ函数时，参数采用传值Byval为什么不行呢？如有时间还望不吝赐教

cflood

在定义函数的时候决定，而不是在调用的时候决定