VB错误 91

来源：百度知道 编辑：UC知道 时间：2024/06/02 17:24:57
Dim dtmBeginTime As Data, dtmEndTime As Data
Private Sub cmdStart_Click()
dtmBeginTime = Time()
End Sub
Private Sub cmdEnd_Click()
Dim intTimeCost As Integer, intWordCount As Integer
dtmEndTime = Time()
imtTimeCost = DateDiff("s", dtmBeginTimes, dtmEndTime)
intWordCount = Len(txtINPUT.Text)
txtSpeed.Text = intWordCount / (intTimeCost / 60)
End Sub
对象变量或 with块变量未设置
偶小菜鸟 请各位大虾米 解答问题 谢谢啦 有用追加分数
下面两位的回答都不好用啊~~~~(>_<)~~~~
错误显示这里
dtmBeginTime = Time()
有错误 - .-!

Dim dtmBeginTime As Data, dtmEndTime As Data
Private Sub cmdStart_Click()
dtmBeginTime = dtmBeginTime = Time
dtmEndTime = Time
End Sub
Private Sub cmdEnd_Click()
Dim intTimeCost As Integer, intWordCount As Integer
dtmEndTime = cmdStart()
imtTimeCost = DateDiff("s", dtmBeginTimes, dtmEndTime)
intWordCount = Len(txtINPUT.Text)
txtSpeed.Text = intWordCount / (intTimeCost / 60)
End Sub

Time()
看不懂，怎么不这样写呀
dtmBeginTime = Time
dtmEndTime = Time