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