WEB开发网
开发学院WEB开发综合 用VB计算累计值 阅读

用VB计算累计值

 2006-02-27 11:40:19 来源:WEB开发网   
核心提示:VB无法在日期/时间字段中存放和测量累计时间,日期/时间存放成特定的时间点而不是一个时间跨度,用VB计算累计值,并且无法在一个日期/时间变量中存放超过24小时的值,如输入9:30,本文以通常的格式HH:MM输出表示,也可以用WINDOWSAPI调用取得本机的时间分隔符,输入的不是某台设备工作的时间长度,而是一个特定时间
----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

----函数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调用取得本机的时间分隔符,这里不再详述。->

Tags:VB 计算 累计

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接