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

タイトル ： Re^17: 時間（？？分？？秒）を合算するには？
投稿日： 2008/06/18(Wed) 22:42
投稿者： tea
> #それと、関数の戻り値の型はどーでもいいっすか？ｗ

以下のようにしました。
ただ、これよりRenardさんが教えてくれたご意見方が良い事もわかります。
これから再度考え直します。

Private Function GameTimes(ixTeam As Long) As Date
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), "00\:") & _
                            Format$(dtmData, "nn:") & Format$(dtmData, "ss")
        End With
    Next
End Function
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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