QTP 日期加月份问题

Question

系统当前时间currentDay：9/5/2011，需要得到当前时间的月份加上1～31之间的随机数后的日期，例如随机数为1，这返回10/8/2011，请指教……

Answer 1

月份加上1-31的数字,那是个啥?
Dim a As Date
a = Date'2011-9-6
a = a + 1'2011-9-7
Debug.Print a关于日期也讨论不少来,搜搜吧,关于date,msdn看看吧等别人回答你的问题,你很快就对vb没有兴趣的,自己搜才是正道

Answer 2

   Print DateAdd("m", int(rnd*31) + 1, Date)