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

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

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有2778人关注过本帖树形打印复制链接主题：VBA 日期计算Bug，怎么解决？

c100010222

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：标准版用户帖子：61 积分：0 威望：0 精华：0 注册：2015/10/27 16:49:34

VBA 日期计算Bug，怎么解决？ 发帖心情

Post By：2016/10/16 0:27:26 [只看该作者]

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