需要：

1、VBA检查市场是否已经收盘（IsClosed）

2、VBA执行收盘（DoClose）

以上属性和方法可增加在market对象中

3、VBA增加金字塔版本过期时间（例如专业版2014-2-2到期这样一个日期型字段），可增加在Application对象中

头两个特别需要，因为最近的一系列经历，出了很多的问题，导致我的金字塔已经实在无法24小时无看顾工作了：

首先是收盘问题，上证、夜盘收盘每天都没有问题，但隔三差五就发现中金所没有自动收盘，所以自动收盘功能形同虚设，因为我每天都必须检查下有没有收盘，所以等于是在手工收盘；

其次，最近金字塔方面也出现了好几单事情，例如夜盘无数据、股票缺数据等，今天（周6）更是不得了，我一打开金字塔，居然就在执行自动收盘，但昨天下午已经收过了啊，我以为没事，结果下午就发现，昨天的数据全没了。所以这个自动收盘我是彻底不相信他了。

还有今天早上我也在群里发现了，白银黄金昨晚的数据都没了，打开分时窗口，是9.13交易日的数据（也就是截止昨天下午的，而不是昨天晚上开始的9.16）。所以可以发现，我知道这是个行情服务器的问题（不知道行情服务器又发了什么东西，导致金字塔客户端认为最后交易日是9.13，而不是9.16）。

所以我已经关闭了自动收盘，实在是比人工收盘还要累。

另外一个需要人工的就是每天金字塔都要重启，否则股票行情就会莫名其妙的快一分钟。

版本过期时间的问题，是我现在采取了每天自动重启（用第三方工具自动重启金字塔），用的比较好了，但这样我就容易错过金字塔的过期提醒，因此我希望VBA能获知金字塔过期时间，发个信息通知我去续费。

我，你1分钟就执行收盘啊？

我是等90分钟，因为我要给时间补充分笔成交数据，是自动补充的，因为我想让数据更稳定些。

但今天真的很奇怪，星期6怎么也会执行收盘呢，真的想不明白

我以前也觉得很稳定，但自从有了盘后和盘中检查数据完整之后，就发现了不少问题。以前是有问题不知道啊，因为打开图表，就点播补充了，根本不知道曾经缺失