tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。