VB无法在日期/时间字段中存放和测量累计时间， 日期/时间存放成特定的时间点而不是一个时间跨度，并且无法在一个日期/时间变量中存 放超过24小时的值。如输入9:30，输入的不是某台设备工作的时间长度，而是一个特定时间， 即是早晨9:30。在日期/时间字段中输入26:30，VB会显示出错信息，认为这不是一个合法的 输入。VB不是不能进行日期/时间字段的累加计算，它在内部以浮点值的形式存放，能够进 行累加计算，但结果不是我们希望的那样。

　　笔者在工作中遇到计算累计时间问题，利用所编 的两个简短的函数dhcTime和dhcMinutes，得到满意的解决。函数dhcMinutes接受以字 符串值形式输入的累计时间作为参数，返回的时间值以分钟数表示，这样就可以方便地对 一系列时间值的分钟数求和。然后用函数dhcTime将分钟数和转换成小时和分钟，并以相应 的格式HH：MM字符串输出表示。

　　函数dhcMinutes程序如下所示，取出以字符串值 形式输入的累计时间的小时值乘以60，再与累计时间的分钟值相加，产生长整数表示的分 钟数。

FunctiondhcMinutes(strTimeAsString)AsLong
intPos=InStr(strTime,":")
strHours=Left(strTime,intPos-1)
strMinutes=Right(strTime,Len(strTime)-intPos)
dhcMinutes=Val(strHours)*60+Val(strMinutes)
EndFunction

FunctiondhcTime(lngMinutesAsLong)AsString
dhcTime=Format(lngMinutes\60,"0")%26":"
%26Format(lngMinutesMod60,"00")
EndFunction

dhcTime(dhcMinutes("100:03")
+dhcMinutes("21:15")+dhcMinutes("0:34"))

　　再如要求4个时间长度11:15、26:06、0:89和112:55 的和，可用下列表达式：

dhcTime(dhcMinutes("11:15")+dhcMinutes("26:06")
+dhcMinutes("0:89")+dhcMinutes("112:55"))

　　至于时间分隔符，本文以通常的格式HH:MM输出表 示，也可以用WINDOWSAPI调用取得本机的时间分隔符，这里不再详述。
编辑：　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：VB使用编程技巧三则
下一篇：让VB自动改变控件大小
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。