タイトル : Re^9: 時間(??分??秒)を合算するには? 投稿日 : 2008/06/17(Tue) 14:05 投稿者 : tea
> それだとMSが999以下だったり、10000以上だった場合におかしくなっちゃいますよ。 > Mod演算子について調べてみてください。 琴さん、回答をいただき本当にありがとうございます。 Modは余剰を求めるものということは理解できました。 以下のようにコードを書き直して見ました。 合計時間は前回の結果と同じなんですがコレでいいんでしょうか? 教えてください。 よろしくお願いします。 Private Function GameTimes(ixTeam As Long) Dim i As Integer Dim m As Long Dim s As Long Dim t As Long Dim TotalSecond As Long Dim MS As String Dim NS As String Dim TotalTime As String For i = 1 To bbPlayerMax With mp.Game.Team(ixTeam).Player(i) '分 s = Hour(.PlayTime) '秒 t = Minute(.PlayTime) '分を秒にして秒の合計 m = s * 60 + t '秒の合算 TotalSecond = TotalSecond + m '合算した秒を分秒形式に変換 MS = TotalSecond / 60 NS = TotalSecond Mod 60 '分:秒に変換 TotalTime = Left(MS, 2) & ":" & (NS / 60) * 60 GameTimes = TotalTime End With Next End Function |