给你这两个函数,基本就可以了。
Dim ntime,minutes
'获取时间
ntime=time()
'获取分钟
minutes=mid(ntime,instr(ntime,":")+1,2)
'分钟+2
minutes=minutes+2
Set Reg=new RegExp
Reg.pattern=":\d{2}:"
Reg.global=True
'获取两分钟后时间
ntime=Reg.replace(ntime,":" & minutes & ":")
Msgbox "增加2分钟后时刻为 " & ntime