VBA 日期计算Bug，怎么解决？ - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

VBA自定义函数

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

问题：没有单数的日期，只有偶数日期，为什么？

不加19000000时，消息显示是正确的。

主题：VBA 日期计算Bug，怎么解决？