----笔者在工作中遇到计算累计时间问题，利用所编的两个简短的函数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
----函数dhcTime程序如下所示，将分钟数用"\"运算符整除得到小时数（用60整除的整数）。用MOD运算符得到分钟数（用60整除的余数）。然后函数将输出格式化为通常的时间表示样式。
FunctiondhcTime(lngMinutesAsLong)AsString
dhcTime=Format(lngMinutes\60,"0")&":"
&Format(lngMinutesMod60,"00")
EndFunction
----例如，要求3个时间长度100:03、21:15和0:34的和，可用下列表达式：
dhcTime(dhcMinutes("100:03")
dhcMinutes("21:15") dhcMinutes("0:34"))
----表达式结果是字符串值"121:52"。
----再如要求4个时间长度11:15、26:06、0:89和112:55的和，可用下列表达式：
dhcTime(dhcMinutes("11:15") dhcMinutes("26:06")
dhcMinutes("0:89") dhcMinutes("112:55"))
----表达式结果是字符串值"151:45"。
----至于时间分隔符，本文以通常的格式HH:MM输出表示，也可以用WINDOWSAPI调用取得本机的时间分隔符，这里不再详述。->
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
