指定した時刻に，指定した時，分，または秒を足したり引いたりした時刻を返します。

CalcTime ( Time , Calc , 〔Hours〕 , 〔Minutes〕 , 〔Seconds〕 〔, DaysBuff〕 )

Time

時刻をhh:mm:ssの形式で指定します。

hhに存在しない不正な値を指定した場合は，エラーになります。

mmとssに存在しない不正な値を指定した場合は，存在する時刻に置き換えて結果を返します。例えば，19:00:61（存在しない時刻）を指定した場合，19:01:01（存在する時刻）に置き換えます。

Calc

演算方法を次の値で指定します。

値	意味
Minus	Timeで指定した時刻から，Hours，Minutes，Secondsで指定した時，分，秒を引いた日付を返します（減算）。
Plus	Timeで指定した時刻に，Hours，Minutes，Secondsで指定した時，分，秒を足した日付を返します（加算）。

Hours

時を0以上の数値，または値を格納した変数名で指定します。

この値は省略できます。省略した場合，0を仮定します。

Minutes

分を0以上の数値，または値を格納した変数名で指定します。

この値は省略できます。省略した場合，0を仮定します。

Seconds

秒を0以上の数値，または値を格納した変数名で指定します。

この値は省略できます。省略した場合，0を仮定します。

DaysBuff

Timeで指定した時刻を基点として求めた時刻が，日を超えた回数を受け取るための変数名を指定します。日を超えなかった場合は，0を受け取ります。この変数名の指定は省略できます。

指定した時刻に，指定した時，分，または秒を足したり引いたりした時刻を求め，求めた時刻を hh:mm:ss の形式で返します。

エラーが発生した場合は，長さ0の文字列（""）を返します。

' 現在の時刻から7時間45分後の時間を求める。
Dim  resTime ,resdate ,daysBuff
resTime = CalcTime ( Time() ,Plus ,7 ,45 , ,daysBuff )
resDate = CalcDate ( Date() , Plus , , ,daysBuff )