关于时间的计算

henryjee 2005-10-22 05:13:07

Dim StartTime as String
dim runtime as string
dim inittime as string
dim endtime as string

inittime = 30 '秒
StartTime = Format(Now, "hh:mm:ss")

'运行一段时间后
RunTime = Format(Now, "hh:mm:ss")
InitTime= Trim(InitTime(LedNum))
endtime = DateDiff("s", StartTime, RunTime)
endtime = DateAdd("s", InitTime, endtime)
得到的endtime是在不是"hh:mm:ss"格式，并且在天数上加了InitTime, 我是想在秒上加InitTime, 不知道是怎么回事？

...全文

123 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

孙小雄 2005-10-22

打赏
举报

Dim StartTime As String
Dim runtime As String
Dim inittime As String
Dim endtime As String

Private Sub Command1_Click()
inittime = 30 '秒
StartTime = Format(Now, "hh:mm:ss")

End Sub

Private Sub Command2_Click()
'运行一段时间后
runtime = Format(Now, "hh:mm:ss")
' inittime = Trim(inittime(LedNum))
endtime = DateAdd("s", DateDiff("s", StartTime, runtime), "00:00:00")
endtime = DateAdd("s", inittime, endtime)
'DateAdd 返回值的格式由 Control Panel设置决定，而不是由传递到date 参数的格式决定。
End Sub

henryjee 2005-10-22

打赏
举报

其实我的意思是这样的
second1 = 30 '秒
second2 = 50 '秒
是否可以通过DateAdd得到一个"hh:mm:ss"格式的时间，或者用其他的函数

northwolves 2005-10-22

打赏
举报

InitTime= Trim(InitTime(LedNum)) 哪来的数组?

得到的endtime是在不是"hh:mm:ss"格式，并且在天数上加了InitTime, 我是想在秒上加InitTime
---------------
看不懂.

'add 30 seconds:
--------------------------------
'endtime = StartTime + 30 / 86400 'add 30 seconds

or

' endtime = DateAdd("s", 30, StartTime)

指定两个日期, 计算相隔的天数