用VB計(jì)算累計(jì)值

2019-11-18 17:52:31

字體：大中小

供稿：網(wǎng)友

----VB無(wú)法在日期/時(shí)間字段中存放和測(cè)量累計(jì)時(shí)間，日期/時(shí)間存放成特定的時(shí)間點(diǎn)而不是一個(gè)時(shí)間跨度，并且無(wú)法在一個(gè)日期/時(shí)間變量中存放超過(guò)24小時(shí)的值。如輸入9:30，輸入的不是某臺(tái)設(shè)備工作的時(shí)間長(zhǎng)度，而是一個(gè)特定時(shí)間，即是早晨9:30。在日期/時(shí)間字段中輸入26:30，VB會(huì)顯示出錯(cuò)信息，認(rèn)為這不是一個(gè)合法的輸入。VB不是不能進(jìn)行日期/時(shí)間字段的累加計(jì)算，它在內(nèi)部以浮點(diǎn)值的形式存放，能夠進(jìn)行累加計(jì)算，但結(jié)果不是我們希望的那樣。

----筆者在工作中遇到計(jì)算累計(jì)時(shí)間問(wèn)題，利用所編的兩個(gè)簡(jiǎn)短的函數(shù)dhcTime和dhcMinutes，得到滿意的解決。函數(shù)dhcMinutes接受以字符串值形式輸入的累計(jì)時(shí)間作為參數(shù)，返回的時(shí)間值以分鐘數(shù)表示，這樣就可以方便地對(duì)一系列時(shí)間值的分鐘數(shù)求和。然后用函數(shù)dhcTime將分鐘數(shù)和轉(zhuǎn)換成小時(shí)和分鐘，并以相應(yīng)的格式HH：MM字符串輸出表示。

----函數(shù)dhcMinutes程序如下所示，取出以字符串值形式輸入的累計(jì)時(shí)間的小時(shí)值乘以60，再與累計(jì)時(shí)間的分鐘值相加，產(chǎn)生長(zhǎng)整數(shù)表示的分鐘數(shù)。

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

----函數(shù)dhcTime程序如下所示，將分鐘數(shù)用"/"運(yùn)算符整除得到小時(shí)數(shù)（用60整除的整數(shù)）。用MOD運(yùn)算符得到分鐘數(shù)（用60整除的余數(shù)）。然后函數(shù)將輸出格式化為通常的時(shí)間表示樣式。
FunctiondhcTime(lngMinutesAsLong)AsString
dhcTime=Format(lngMinutes/60,"0")&":"
&Format(lngMinutesMod60,"00")
EndFunction

----例如，要求3個(gè)時(shí)間長(zhǎng)度100:03、21:15和0:34的和，可用下列表達(dá)式：
dhcTime(dhcMinutes("100:03")
dhcMinutes("21:15") dhcMinutes("0:34"))

----表達(dá)式結(jié)果是字符串值"121:52"。
----再如要求4個(gè)時(shí)間長(zhǎng)度11:15、26:06、0:89和112:55的和，可用下列表達(dá)式：

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

----表達(dá)式結(jié)果是字符串值"151:45"。
----至于時(shí)間分隔符，本文以通常的格式HH:MM輸出表示，也可以用WINDOWSAPI調(diào)用取得本機(jī)的時(shí)間分隔符，這里不再詳述。->

上一篇：用VB設(shè)計(jì)條形碼輕印刷系統(tǒng)

下一篇：VB軟件設(shè)計(jì)中的幾個(gè)問(wèn)題