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

タイトル Re^16: 時間(??分??秒)を合算するには?
投稿日: 2008/06/18(Wed) 16:42
投稿者tea
> だから、最初にここの 日付・時刻関係 はご覧になったのですか? と言ったでしょう

花ちゃんさん、回答をいただきまして本当にありがとうございます。
再度 日付・時刻関係 を見させていただきました。
以下のようにコードを書き直しました。
駄目駄目な私ですが今後もよろしくお願いします。

Private Function GameTimes(ixTeam As Long)
Dim i  As Integer
Dim dtmData As Date

    For i = 1 To bbPlayerMax
        With mp.Game.Team(ixTeam).Player(i)
            
            If .PlayTime = "" Then
                Exit Function
            End If
            
            dtmData = dtmData + CDate(.PlayTime)
            
            GameTimes = Format$(Int(CSng(dtmData)) * 24 + Hour(dtmData), "0\:") & _
                            Format$(dtmData, "nn:") & Format$(dtmData, "ss")
        End With
    Next
End Function

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

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