搜索
理财投资,次日即可返利熊市行情的短线盈利模式中线单股之创业板里的“茅台”A股十年启示录
机器人选股,不赚钱就退钱今日头条:明日暴涨牛股已公开炒股七大制胜法宝金融书籍5折包邮
楼主: 道可道2088

[个股交流] 通达信 年月日 干支 显示

[复制链接]

签到天数: 246 天

发表于 2017-6-21 21:17 | 显示全部楼层
强烈支持一个!感谢分享。请楼主详细介绍下,毕竟象我这样不懂编程的不在少数。另外,如果直接复制楼主帖子里的代码内容,该以什么编码保存?有无后缀名呢?
金币:
奖励:
热心:
注册时间:
2008-3-11

回复 使用道具 举报

签到天数: 83 天

发表于 2017-6-21 22:43 | 显示全部楼层
多谢分享!
金币:
奖励:
热心:
注册时间:
2015-7-12

回复 使用道具 举报

签到天数: 1 天

 楼主| 发表于 2017-6-22 11:00 | 显示全部楼层
我导出文件了 , 直接在通达信导入就可以了 , 另外6以上的话,  手机可以直接扫二维码导入 电脑公式, 我没有试过!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
金币:
奖励:
热心:
注册时间:
2014-5-28

回复 使用道具 举报

御龙趋势投资

发表于 2017-6-23 18:41 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
金币:
奖励:
热心:
注册时间:
2006-10-16

回复 使用道具 举报

发表于 2017-6-27 19:52 | 显示全部楼层
期待楼主写个大智慧能用
金币:
奖励:
热心:
注册时间:
2015-6-20

回复 使用道具 举报

签到天数: 127 天

梅花小孩金融易学家园股市捉妖记

发表于 2017-6-28 15:12 | 显示全部楼层
人才
金币:
奖励:
热心:
注册时间:
2006-3-2

回复 使用道具 举报

签到天数: 957 天

发表于 2017-6-29 09:06 | 显示全部楼层
金币:
奖励:
热心:
注册时间:
2018-3-8

回复 使用道具 举报

签到天数: 5 天

发表于 2017-6-29 09:32 | 显示全部楼层
金币:
奖励:
热心:
注册时间:
2015-8-26

回复 使用道具 举报

签到天数: 256 天

发表于 2017-6-29 09:35 | 显示全部楼层
ok
金币:
奖励:
热心:
注册时间:
2005-9-8

回复 使用道具 举报

签到天数: 256 天

发表于 2017-6-29 09:35 | 显示全部楼层
ok                     
金币:
奖励:
热心:
注册时间:
2005-9-8

回复 使用道具 举报

签到天数: 957 天

发表于 2017-6-29 09:39 | 显示全部楼层
谢谢,如果年干支改成每年期间只显示一次,月干支每月只显示一次,就更好了,能否?
金币:
奖励:
热心:
注册时间:
2018-3-8

回复 使用道具 举报

签到天数: 957 天

发表于 2017-6-29 10:46 | 显示全部楼层
{干支:干支从1开始,1970到1900天数 25567+1,1990.12.19到1900的天数 33224+1,0.375是收盘修正}
DD:=DATE;
距日:=DATETODAY(DD)+33225-0.375+1,NODRAW;
哪年:=INTPART(DD/10000),NODRAW;
哪节:=(MOD(INTPART(DD/100),100)-1)*2,NODRAW;
积日:=365.242*哪年+6.15+15.2226*哪节-1.9*SIN(0.262*哪节),NODRAW;
积日春:=365.242*哪年+6.15+15.2226*2-1.9*SIN(0.262*2),NODRAW;
年干:=MOD(哪年-(距日<积日春)+6,10)+1,NODRAW;
年支:=MOD(哪年-(距日<积日春)+12,12)+1,NODRAW;
月干:=MOD(哪年*12+MOD(INTPART(DD/100),100)-(距日<积日)+2,10)+1;
月支:=MOD(哪年*12+MOD(INTPART(DD/100),100)-(距日<积日),12)+1;
日干:=MOD(DATETODAY(DD)+4,10)+1;
日支:=MOD(DATETODAY(DD)+6,12)+1;

{干支}
NGW:=IF(年干=1,'甲',IF(年干=2,'乙',IF(年干=3,'丙',IF(年干=4,'丁',IF(年干=5,'戊',IF(年干=6,'己',IF(年干=7,'庚',IF(年干=8,'辛',IF(年干=9,'壬','癸')))))))));
NZW:=IF(年支=1,'子',IF(年支=2,'丑',IF(年支=3,'寅',IF(年支=4,'卯',IF(年支=5,'辰',IF(年支=6,'巳',IF(年支=7,'午',IF(年支=8,'未',IF(年支=9,'申',IF(年支=10,'酉',IF(年支=11,'戌','亥')))))))))));
YGW:=IF(月干=1,'甲',IF(月干=2,'乙',IF(月干=3,'丙',IF(月干=4,'丁',IF(月干=5,'戊',IF(月干=6,'己',IF(月干=7,'庚',IF(月干=8,'辛',IF(月干=9,'壬','癸')))))))));
YZW:=IF(月支=1,'子',IF(月支=2,'丑',IF(月支=3,'寅',IF(月支=4,'卯',IF(月支=5,'辰',IF(月支=6,'巳',IF(月支=7,'午',IF(月支=8,'未',IF(月支=9,'申',IF(月支=10,'酉',IF(月支=11,'戌','亥')))))))))));
RGW:=IF(日干=1,'甲',IF(日干=2,'乙',IF(日干=3,'丙',IF(日干=4,'丁',IF(日干=5,'戊',IF(日干=6,'己',IF(日干=7,'庚',IF(日干=8,'辛',IF(日干=9,'壬','癸')))))))));
RZW:=IF(日支=1,'子',IF(日支=2,'丑',IF(日支=3,'寅',IF(日支=4,'卯',IF(日支=5,'辰',IF(日支=6,'巳',IF(日支=7,'午',IF(日支=8,'未',IF(日支=9,'申',IF(日支=10,'酉',IF(日支=11,'戌','亥')))))))))));

DRAWTEXT(1,6,NGW),COLORFF80FF;
DRAWTEXT(1,5,NZW),COLORFF80FF;
DRAWTEXT(1,4,YGW),COLOR00FF00;
DRAWTEXT(1,3,YZW),COLOR00FF00;
DRAWTEXT(1,2,RGW),COLOR00FFFF;
DRAWTEXT(1,1,RZW),COLOR00FFFF;



{24节气}
AA节:=(360*FRACPART(((DATETODAY(DATE)-21)/(365/360))/360)),NODRAW;
A节:=INTPART(AA节/15)+1,NODRAW;
节N:=A节!=REF(A节,1);
节气:=IF(节N AND A节=3,'立春',IF(节N AND A节=4 ,'雨水',IF(节N AND A节=5,'惊蛰',IF(节N AND A节=6,'春分',
IF(节N AND A节=7,'清明',IF(节N AND A节=8,'谷雨',IF(节N AND A节=9,'立夏',IF(节N AND A节=10,'小满',
IF(节N AND A节=11,'芒种',IF(节N AND A节=12,'夏至',IF(节N AND A节=13,'小暑',IF(节N AND A节=14,'大署',
IF(节N AND A节=15,'立秋',IF(节N AND A节=16,'处暑',IF(节N AND A节=17,'白露',IF(节N AND A节=18,'秋分',
IF(节N AND A节=19,'寒露',IF(节N AND A节=20,'霜降',IF(节N AND A节=21 ,'立冬',IF(节N AND A节=22,'小雪',
IF(节N AND A节=23,'大雪',IF(节N AND A节=24,'冬至',IF(节N AND A节=1,'小寒',IF(节N AND A节=2,'大寒',DRAWNULL))))))))))))))))))))))));
DRAWTEXT(1,7,节气),COLORLIGRAY;
月节:=IF(REFDATE(MONTH,DATE)=1,'小寒5日-7日大寒20日-22日',IF(REFDATE(MONTH,DATE)=2,'立春3日-5日雨水18日-20日',
IF(REFDATE(MONTH,DATE)=3,'惊蛰5日-7日春分20日-22日',IF(REFDATE(MONTH,DATE)=4,'清明4日-6日谷雨19日-21日',
IF(REFDATE(MONTH,DATE)=5,'立夏5日-7日小满20日-22日',IF(REFDATE(MONTH,DATE)=6,'芒种5日-7日夏至21日-23日',
IF(REFDATE(MONTH,DATE)=7,'小暑6日-8日大暑22日-24日',IF(REFDATE(MONTH,DATE)=8,'立秋7日-9日处暑22日-24日',
IF(REFDATE(MONTH,DATE)=9,'白露7日-9日秋分22日-24日',IF(REFDATE(MONTH,DATE)=10,'寒露8日-10日霜降23日-25日',
IF(REFDATE(MONTH,DATE)=11,'立冬7日-9日小雪22日-24日',IF(REFDATE(MONTH,DATE)=12,'大雪6日-8日冬至21日-23日',DRAWNULL))))))))))));
今日:=DATE+19000000,NODRAW;输节K:=STRCAT(CON2STR(今日,0),STRCAT('农历节气',月节));
DRAWTEXT_FIX(1,0.58,0.06,1,输节K),COLORWHITE;


TZ:=-0.01;
JAZ:=MOD(DATETODAY(DATE)-5,7);
DRAWTEXT(JAZ=0,TZ,'一'),COLORRED;
DRAWTEXT(JAZ=1,TZ,'二'),COLORGREEN;
DRAWTEXT(JAZ=2,TZ,'三'),COLORYELLOW;
DRAWTEXT(JAZ=3,TZ,'四'),COLORLIRED;
DRAWTEXT(JAZ=4,TZ,'五'),COLORMAGENTA;

9,POINTDOT,COLORBLACK;
-0.5,POINTDOT,COLORBLACK;

参与人数 1奖励 +8 热心 +3 时间 理由
cgf9999 + 8 + 3 2017-11-28 15:13 MACD有楼主更精彩!^_^

查看全部评分

金币:
奖励:
热心:
注册时间:
2018-3-8

回复 使用道具 举报

签到天数: 3 天

梅花小孩金融易学家园群组家园功能咨询专群将上证指数拆解到底

发表于 2017-6-29 11:16 | 显示全部楼层
金币:
奖励:
热心:
注册时间:
2005-8-17

回复 使用道具 举报

签到天数: 1 天

 楼主| 发表于 2017-6-29 11:55 | 显示全部楼层
我根据建议, 加上了纳音.

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
参与人数 1奖励 +8 热心 +3 时间 理由
cgf9999 + 8 + 3 2017-11-28 15:13 MACD有楼主更精彩!^_^

查看全部评分

金币:
奖励:
热心:
注册时间:
2014-5-28

回复 使用道具 举报

签到天数: 1 天

 楼主| 发表于 2017-6-29 11:59 | 显示全部楼层
运行截图.  

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
金币:
奖励:
热心:
注册时间:
2014-5-28

回复 使用道具 举报

签到天数: 1 天

 楼主| 发表于 2017-6-29 12:00 | 显示全部楼层
重新排版,   中间行 白色 是月份的纳音五行属性 ,  另外, 大家可以导入到手机里面使用,   在地铁上, 在野外随时可以使用  ,
金币:
奖励:
热心:
注册时间:
2014-5-28

回复 使用道具 举报

签到天数: 3 天

梅花小孩金融易学家园群组家园功能咨询专群将上证指数拆解到底

发表于 2017-6-29 12:12 | 显示全部楼层
老师,上面不会安装啊,还是安32楼发出来好吗?
金币:
奖励:
热心:
注册时间:
2005-8-17

回复 使用道具 举报

签到天数: 1 天

 楼主| 发表于 2017-6-29 13:38 | 显示全部楼层
不用安装, 直接在通达信里面导入公式 就可以.
主要是代码太长 ,
金币:
奖励:
热心:
注册时间:
2014-5-28

回复 使用道具 举报

御龙趋势投资

发表于 2017-6-30 13:02 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
金币:
奖励:
热心:
注册时间:
2006-10-16

回复 使用道具 举报

签到天数: 1134 天

发表于 2017-6-30 13:24 | 显示全部楼层
金币:
奖励:
热心:
注册时间:
2010-9-9

回复 使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

本站声明:1、本站所有广告均与MACD无关;2、MACD仅提供交流平台,网友发布信息非MACD观点与意思表达,因网友发布的信息造成任何后果,均与MACD无关。
MACD金融网(1997-2016)官方域名:macd.cn   MACD金融网校(2006-2016)官方域名:macdwx.com
值班热线[9:00—18:00]:020-85551719   24小时网站应急电话:18292674919
找回密码、投诉QQ:89918815 友情链接QQ:95008905 广告商务联系QQ:17017506 电话:18292674919
ICP证: 粤ICP备05022117 中华人民共和国增值电信业务经营许可证:粤B2-20070280 茂名市网警备案编号: 4409023010508
安全联盟

粤公网安备 44010602000651号

举报|Archiver|手机版|MACD股票论坛 ( 粤ICP备05022117

GMT+8, 2018-8-20 12:51 , Processed in 0.060018 second(s), 8 queries , MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表