タイトル : Re^17: 時間(??分??秒)を合算するには? 投稿日 : 2008/06/18(Wed) 22:42 投稿者 : tea
> #それと、関数の戻り値の型はどーでもいいっすか?w 以下のようにしました。 ただ、これより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 |