時間取得

質問

OS:win2000pro
vb:VB6.0sp5

状態を示すフラグ
[変数]flg_1 as long [変数]flg_2 as longがあり
下記状態時の累積時間を取得する方法を教えてください

時刻 flg_1 flg_2 累積時間(秒)
14:22:00 0 0 0
14:23:00 1 0 0
14:23:30 1 1 0 ←累積カウントスタート
14:25:00 1 0 90 ←累積カウントストップ
14:26:00 1 1 90 ←累積カウントスタート
14:30:00 1 0 330 ←累積カウントストップ
14:30:10 0 0 0 ←累積リセット
14:35:50 1 1 0 ←累積カウントスタート
14:37:00 1 0 70 ←累積カウントストップ

(補) flg_1=1の間、累積カウントUp
(補) flg_2=1にて、累積リセット

よって、
14:30:00時点
　330(秒)→5.5(分)
　　→[小数１位四捨五入]→6(分)：戻値
14:37:00時点
　70(秒)→1.166…(分)
　　→[小数１位四捨五入]→1(分)：戻値

回答No.1

めとろいと（@naktak）

累積時間を60で割り、小数第一位が5以上なら切り上げ、それ以外は切り捨て。

小数第一位はInStr()とMid()を使うか、以下の方法などで取得。
R_Seconds = 330
R_Minutes = R_Seconds / 60
Minutes = Int(Ruiseki)
Syosu = Int((Ruiseki - Minutes) * 10)
If Syosu >= 5 Then Minutes = Minutes + 1