VBA 日期計算Bug，怎么解決？

VBA自定義函數(shù)

Function CS03(Formula,dd,tt)
  
    CS03=0
    dim day
    day=dd+19000000

    CS03=day
End Function

PEL命令

dd0:=DATE();
tt:time(),NOAXIS;
aa:=CS03(dd0,tt);

msgout(1,NUMTOSTR(aa,0));

消息顯示（只計算20根K線，日k線）

2016/10/16 00:24:15  20160908
2016/10/16 00:24:15  20160912
2016/10/16 00:24:15  20160912
2016/10/16 00:24:15  20160914
2016/10/16 00:24:15  20160920
2016/10/16 00:24:15  20160920
2016/10/16 00:24:15  20160920
2016/10/16 00:24:15  20160922
2016/10/16 00:24:15  20160924
2016/10/16 00:24:15  20160926
2016/10/16 00:24:15  20160928
2016/10/16 00:24:15  20160928
2016/10/16 00:24:15  20160928
2016/10/16 00:24:15  20160930
2016/10/16 00:24:15  20161010
2016/10/16 00:24:15  20161012
2016/10/16 00:24:15  20161012
2016/10/16 00:24:15  20161012
2016/10/16 00:24:15  20161014
2016/10/16 00:24:15  20161016

問題：沒有單數(shù)的日期，只有偶數(shù)日期，為什么？

不加19000000時，消息顯示是正確的。

你以為我想加啊，這是你們程序的bug，取日期函數(shù)dd0:=DATE();比如日期2016-10-16返回值是1161016，

但是VBA里有些函數(shù)又要用到“2016-10-16”，所以加19000000。

不管怎么樣，我發(fā)現(xiàn)VBA的變量，數(shù)據(jù)大的計算就會出錯，例如，1161017+19000000 顯示結(jié)果20161016，什么原因？