代码运行时显示“类型不匹配”

ahui885205

Private Const MDTE_SPECIALDATE As Date = #10/1/2019#
Private Const MDTE_SPECIALTIME As Date = #12:00:00 AM#
Sub StartTimer()
     Call TimeOn
End Sub
Sub TimeOn()
     Dim intNum As Integer
     Dim dteNowTime As Date, dteTime As Date
     dteNowTime = Now()
     If dteNowTime >= MDTE_SPECIALDATE + MDTE_SPECIALTIME Then
         ActiveSheet.Range("B10:B11").Value = 0
         MsgBox "时间到!", vbExclamation
         Exit Sub
     End If
    If TimeValue(dteNowTime) > MDTE_SPECIALTIME Then intNum = 1’这行代码运行时显示“类型不匹配”
     With ActiveSheet
        .Range("B10").Value = MDTE_SPECIALDATE - Date - intNum
        dteTime = MDTE_SPECIALTIME - TimeValue(dteNowTime) + _
            intNum * 86400
        .Range("B11").Value = Hour(dteTime)
        .Range("B12").Value = Minute(dteTime)
        .Range("B13").Value = Second(dteTime)
    End With
    mdteTime = dteNowTime + TimeValue("0:0:1")
    Application.OnTime mdteTime, "TimeOn"
End Sub
Sub StopTimer()
     On Error Resume Next
     Application.OnTime mdteTime, "TimeOn", , False
End Sub

microyip

1. If dteNowTime > MDTE_SPECIALTIME Then intNum = 1

复制代码

ahui885205

microyip 发表于 2019-9-26 12:53

这一句过了，可是dteTime = MDTE_SPECIALTIME - TimeValue(dteNowTime) + _
            intNum * 86400，这一句又是“类型不匹配”了，怎么回事啊？谢谢您的解答！

microyip

ahui885205 发表于 2019-9-26 12:59
这一句过了，可是dteTime = MDTE_SPECIALTIME - TimeValue(dteNowTime) + _
            intNum * 86400 ...

你改得了一句，难道相同错误，你不会改？

ahui885205

microyip 发表于 2019-9-26 13:12
你改得了一句，难道相同错误，你不会改？

我改了，可是又会出现这样的

microyip

我这里没见到还有什么地方错，能正常运行

ahui885205

microyip 发表于 2019-9-26 13:24
我这里没见到还有什么地方错，能正常运行

谢谢大神的指点，问题已经解决了。是我没有把两行代码合成一行代码去写！！

ahui885205

microyip 发表于 2019-9-26 13:24
我这里没见到还有什么地方错，能正常运行

谢谢大神的指点，问题已经解决了。是我没有把两行代码合成一行代码去写！！