vb中知道一个日期，和与它相差的天数如何得知另一个日期

举例:现在的时间加上10 天后的日期,这样写:
dateadd("d",10,now)

dim a as date

假设有一日期a ,求计算与相差天数为X天的日期

解:
Dim B As Date
Dim a As Date
a = Now()
B = a + x
Print B

也就是说，日期直接可以加减一个整数天数，得出另一个日期。