タイトル : Re^11: 時間(??分??秒)を合算するには? 投稿日 : 2008/06/17(Tue) 14:37 投稿者 : tea
> 作成する前に、何が出来れば問題ないのか?が洗い出せていますか? > プログラムを作成する前に、そのあたりのポイントを抑えられては? いなさん、回答をいただき本当にありがとうございます。 何年やっても初心者からから抜け出せないんです・・・。 すいません。 コードを以下のように直してみました。 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 Dim NS As String Dim TotalTime As String For i = 1 To bbPlayerMax With mp.Game.Team(ixTeam).Player(i) '分 s = Hour(.PlayTime) '秒 t = Minute(.PlayTime) '分を秒にして秒の合計 m = s * 60 + t '秒の合算 TotalSecond = TotalSecond + m '合算した秒を分秒形式に変換 MS = TotalSecond / 60 NS = TotalSecond Mod 60 '分:秒に変換 TotalTime = Fix(MS) & ":" & NS GameTimes = TotalTime End With Next End Function |