GetTimeCount ( StartTime , EndTime 〔, UnitofTime〕 )
値 | 意味 |
---|---|
HourU | 時の単位で取得します。 例えば,開始時刻が9:00:00で,終了時刻が10:00:00である場合は1になり,終了時刻が9:59:59である場合は0になります。 |
MinuteU | 分の単位で取得します。 例えば,開始時刻が9:10:00,終了時刻が9:11:00である場合は1になり,終了時刻が9:10:59である場合は0になります。 |
SecondU | 秒の単位で取得します。 |
' 9:10:30から10:09:20までの経過時間を時,分,秒の単位で求める。
Dim time1 ,time2 ,hBuff ,mBuff ,sBuff
time1 = "9:10:30"
time2 = "10:09:20"
' hBuffには0,mBuffには58,sBuffには3530が格納される。
hBuff = GetTimeCount ( time1 ,time2 ,HourU )
mBuff = GetTimeCount ( time1 ,time2 ,MinuteU )
sBuff = GetTimeCount ( time1 ,time2 ,SecondU )