时间计算有关问题

时间计算问题
我要拿当前时间减去5秒钟.应该如何计算?>
如果当前时间是9:48:01秒.减去5秒后是9:47:56秒.
请问如何得到这个值

[解决办法]
Dim n As Date, m As Date
n = Now
m = DateAdd( "s ", -5, n)
Debug.Print n, m