タイトル : Re^7: 時間(??分??秒)を合算するには? 投稿日 : 2008/06/16(Mon) 17:15 投稿者 : tea
> としたんですから、その"秒"を"分:秒"に戻す時は逆のことをすれば… 琴さん、回答をいただき本当にありがとうございます。 以下のように書き加えましたが、合計時間は意図した通りに「56:15」 と出ました。 このコードでいいんでしょうか? 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 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 '分:秒に変換 TotalTime = Left(MS, 2) & ":" & Right(MS, 3) * 60 GameTimes = TotalTime End With Next End Function |