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

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

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

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