整数转换为时间，为什么这个会出错？

哪里出错？
哪里有整数？你定义的好像是Variant格式

解决方案 »

  1.   

    运行一下，是最后一行出错，原因是i值太大超出DateAdd函数的范围，虽然DateDiff可以得出i＝3379617600。有一个解决的方法，就是减少DateAdd中计算的i值，可以先将i/2，再DateAdd两次搞定.....
    d = CDate("1900-1-1 00:00:00")
    i = DateDiff("s", d, "2007-2-4 22:40:00")/2
    x = DateAdd("s", i, d)
    x = DateAdd("s", i, x)
    Print x  
      

  2.   

    因为dateadd中的i值必须要在long范围之内，而通过datediff算出的值超过这个范围，所以有错
      

  3.   

    有一点很怪，不知是不是小Bug，通过F2查看VB的DateAdd函数声明，I是Double类型，但在MSDN中说是Long型，通过实测，应该是Long型，所以结果有错