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

タイトル ： Re^5: 時間（？？分？？秒）を合算するには？
投稿日： 2008/06/16(Mon) 16:22
投稿者： tea
花ちゃんさん、回答をしていただき本当にありがとうございます。

自分なりにコードを以下のように記述しました。
現状では合算でMSの値は56.25となり、時間に変換すると
計５６分１５秒となります。

ただ、56.25から56:15にする方法がわかりません。
整数と小数点以下に分離して、少数点以下に60を掛けると
「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

    For i = 1 To bbPlayerMax
        With mp.Game.Team(ixTeam).Player(i)
            '分
            s = Hour(.PlayTime)
            '分を秒に
            s = s * 60
            '秒
            t = Minute(.PlayTime)
            
            '秒の合計
            m = s + t
            
            '秒の合算
            TotalSecond = TotalSecond + m
            
            '合算した秒を分秒形式に変換
            MS = TotalSecond / 60
            
            GameTimes = MS
        End With
    Next
End Function
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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