【VBA】DateAddで時間の足し算・引き算

Public Function CalcTimeAddSeconds( _
                                        ByVal srcTime As Date, _
                                        ByVal addSeconds As Long) As Date
    CalcTimeAddSeconds = DateAdd("s", addSeconds, srcTime)
End Function

Public Function CalcTimeAddMinutes( _
                                        ByVal srcTime As Date, _
                                        ByVal addMinutes As Long) As Date
    CalcTimeAddMinutes = DateAdd("n", addMinutes, srcTime)
End Function