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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 每月交接日（第三个星期五）平仓的VBA代码如何写？

   

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

  共有1564人关注过本帖树形打印复制链接

主题：每月交接日（第三个星期五）平仓的VBA代码如何写？
帅哥哟，离线，有人找我吗？
solarhe2006
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：252 积分：1001 威望：0 精华：0 注册：2010/2/15 16:47:58 		每月交接日（第三个星期五）平仓的VBA代码如何写？  发帖心情 Post By：2021/3/1 14:21:41 [显示全部帖子]

variable:n=0;

if weekday<ref(weekday,1) then n:=n+1;

if month<>ref(month,1) then n:=1;

if n=3 and weekday=5 and time=closetime(0) then begin

    sell(1,0,market);

    sellshort(1,0,market);

end

'''''''''''''''''''''''''''''''''''''''''''''''''''''

请教下：

VBA代码如何写？
 回到顶部
帅哥哟，离线，有人找我吗？
solarhe2006
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：252 积分：1001 威望：0 精华：0 注册：2010/2/15 16:47:58 		  发帖心情 Post By：2021/3/1 15:42:13 [显示全部帖子]

你好，请把这句：
if month<>ref(month,1) then n:=1;
用VBA语言写一下吗？
 回到顶部
帅哥哟，离线，有人找我吗？
solarhe2006
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：252 积分：1001 威望：0 精华：0 注册：2010/2/15 16:47:58 		  发帖心情 Post By：2021/3/1 17:52:01 [显示全部帖子]

Sub SmpYearHour()

'以对话框显示当前时间

MsgBox "当前日期：" & Day(Date) &"_" & Day(Date-1)

if Day(Date)< Day(Date-1)then
MsgBox "当前日期是月初第一天：" & Year(Now()) & "年" & Month(Now()) & "月" & Day(Now())
else
MsgBox Year(Now()) & "年" & Month(Now()) & "月" & Day(Now()) & "不用换月"
end if

End Sub
我有个VBA程序，想每个月初执行一次，目前是这么写的月初执行，想试试VBA其他的写法。图表交易和后台交易就不要用了，金字塔的PYTHON完善后我再试试PYTHON吧。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.90625 秒, 6 次数据查询