VBA一个小程序,当执行到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 Da

展开全部
收起
4回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 莫愁

    19人对此回答表示赞同

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

    InputBox得到的是String型的,而Rqq是要求Date型,
    改成以下代码

    S = InputBox("请输入日期:")
    If IsDate(S) Then
    Rqq = CDate(S)
    End If
    Call
    展开
    19
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Axl木子

    17人对此回答表示赞同

    Call XQCX(ByVal Rqq, ByVal xqj, ByVal djz)中的ByVal应该在
    定义函数或过程的时候使用,而不是在调用的时候用

    Sub XQCX(ByVal rq As Date, ByVal zc As Integer, ByVal whyr As Integer)
    展开
    17
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Ezekiel

    15人对此回答表示赞同

    楼上说的不是问题的重点,加不加Cdate无所谓,当然你要输入正确的格式,如2010/11/9,2010-11-9.vb会自动识别。
    关键在于Call语句有问题。把Call XQCX(ByVal Rqq, ByVal xqj, ByVal djz)改为Call XQCX(Rqq, xqj, djz)
    即可。
    展开
    15
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 燕尾蝶°优美

    14人对此回答表示赞同

    如以下这样就可以了,因为你在之前已经定义了Dim Rqq As Date, xqj As Integer, djz As Integer
    所以到(ByVal Rqq, ByVal xqj, ByVal djz 就不匹配

    还有Dim zc1 As Integer, zc As Integer,zc重定义了

    =======================

    Private Sub CommandButton1_Click()
    展开
    14
    0回复
    发布于 5年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部