幸运飞艇冠亚和倍率对刷:用VB计算累计时间值

05月07日作者:黑曼巴


VB无法在日期/光阴字段中寄放和丈量累计光阴, 日期/光阴寄放成特定的光阴点而不幸运飞艇冠亚和倍率对刷是一个光阴幸运飞艇冠亚和倍率对刷跨度,并且无法在一个日期/光阴变量中存 放跨越24小时的值。如输入9:30,输入的不是某台设备事情的光阴长度,而是一个特准光阴, 等于凌晨9:30。在日期/光阴字段中输入26:30,VB会显示掉足信息,觉得这不是一个合法的 输入。VB不是不能进行日期/光阴字段的累加谋略,它在内部以浮点值的形式寄放,能够进 行累加谋略,但结果不是我们盼望的那样。

笔者在事情中碰到谋略累计光阴问题,使用所编 的两个简短的函数dhcTime和dhcMinutes,获得知足的办理。函数dhcMinutes吸收以字 符串值形式输入的累计光阴作为参数,返回的光阴值以分钟数表示,这样就可以方便地对 一系列光阴值的分钟数乞降。然后用函数dhcTime将分钟数和转换成小时和分钟,并以响应 的款式HH:MM字符串输出表示。

函数dhcMinutes法度榜样如下所示,掏出以字符串值 形式输入的累计光阴的小时价乘以60,再与累计光阴的分钟值相加,产发展整数表示的分 钟数。

Function dhcMinutes(strTimeAs String)AsLong

intPos=InStr(strTime,":")幸运飞艇冠亚和倍率对刷

strHours=Left(strTime,intPos-1)

strMinutes=Right(strTime,Len(strTime)-intPos)

dhcMinutes=Val(strHours)*60+Val(strMinutes)

End Function

函数dhcTime法度榜样如下所示,将分钟数用"\"运算符整 除获得小时数(用60整除的整数)。用MOD运算符获得分钟数(用60整除的余数)。然后函数将输 出款式化为平日的光阴表示样式。

Function dhcTime(lngMinutes As Long)As String

dhcTime=Format(lngMinutes\60,"0")&":"

&Format(lngMinutesMod60,"00")

End Function

例如,要求3个光阴长度100:03、21:15和0:34的和,可 用下列表达式:

dhcTime(dhcMinutes("100:03")

+dhcMinutes("21:15")+dhcMinutes("0:34"))

表达式结果是字符幸运飞艇冠亚和倍率对刷串值"121:52"。

再如要求4个光阴长度11:15、26:0幸运飞艇冠亚和倍率对刷6、0:89和112:55 的和,可用下列表达式:

dhcTime(dhcMinutes("11:15")+dhcMinutes("26:06")

+dhcMinutes("0:89")+dhcMinutes("112:55"))

表达式结果是字符串值"151:45"。

至于光阴分隔符,本文以平日的款式HH:MM输出表示,也可以用WINDOWSAPI调用取得本机的光阴分隔符,这里不再胪陈。

最近关注

热点内容

更多