時間の足し算方法について質問がありましたが、h:mm:ssやh:mmの形式に対応するようなスクリプトを掲載します。

計算元の時間は、h:mm:ss形式でもh:mm形式でもOKです。

結果も、両形式で返します。

s1 = hms2s(!時刻A!)
s2 = hms2s(!時刻B!)
ss = s1 + s2
s = ss Mod 60
ss = ss - s
m = (ss Mod 3600) / 60
ss = ss - m * 60
h = ss / 3600
hmm = h & ":" & Right("0" & m, 2)
hmmss = h & ":" & Right("0" & m, 2) & ":" & Right("0" & s, 2)
SetUMSVariable $結果(h:mm)$, hmm
SetUMSVariable $結果(h:mm:ss)$, hmmss

Function hms2s(hm)
    dim h,m,s
    hmv = CDate(hm)
    h = Hour(hmv)
    m = Minute(hmv)
    s = Second(hmv)
    hms2s = h * 3600 + m * 60 + s
End Function