搜索
由繁至简的炒股秘籍股票配资送值得信赖我出资你炒股赚大钱自己操盘配资财源滚滚
楼主: 道可道2088

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

  [复制链接]

签到天数: 264 天

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

回复 使用道具 举报

签到天数: 114 天

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

回复 使用道具 举报

签到天数: 1 天

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

股票六字.zip

2.27 KB, 下载次数: 99

金币:
奖励:
热心:
注册时间:
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

回复 使用道具 举报

签到天数: 1020 天

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

回复 使用道具 举报

签到天数: 24 天

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

回复 使用道具 举报

签到天数: 635 天

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

回复 使用道具 举报

签到天数: 635 天

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

回复 使用道具 举报

签到天数: 1020 天

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

回复 使用道具 举报

签到天数: 1020 天

发表于 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

回复 使用道具 举报

签到天数: 5 天

股市捉妖记大盘不是我家开的梅花小孩金融易学家园超前狙击群组家园功能咨询专群将上证指数拆解到底

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

回复 使用道具 举报

签到天数: 1 天

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

股票6字.zip

6.11 KB, 下载次数: 145

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

查看全部评分

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

回复 使用道具 举报

签到天数: 1 天

 楼主| 发表于 2017-6-29 11:59 | 显示全部楼层
运行截图.  
11.png
金币:
奖励:
热心:
注册时间:
2014-5-28

回复 使用道具 举报

签到天数: 1 天

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

回复 使用道具 举报

签到天数: 5 天

股市捉妖记大盘不是我家开的梅花小孩金融易学家园超前狙击群组家园功能咨询专群将上证指数拆解到底

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

回复 使用道具 举报

签到天数: 1 天

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

回复 使用道具 举报

发表于 2017-6-30 13:02 | 显示全部楼层
本帖最后由 day158 于 2017-7-1 11:54 编辑

34楼,32楼的太好了!赞一个!


金币:
奖励:
热心:
注册时间:
2006-10-16

回复 使用道具 举报

签到天数: 1134 天

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

回复 使用道具 举报

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

本版积分规则

本站声明:1、本站所有广告均与MACD无关;2、MACD仅提供交流平台,网友发布信息非MACD观点与意思表达,因网友发布的信息造成任何后果,均与MACD无关。
MACD俱乐部(1997-2019)官方域名:macd.cn   MACD网校(2006-2019)官方域名:macdwx.com
值班热线[9:00—17:30]:18292674919   24小时网站应急电话:18292674919
找回密码、投诉QQ:89918815 友情链接QQ:95008905 广告商务联系QQ:17017506 电话:18292674919
增值电信业务经营许可证: 陕ICP19026207号—2  陕ICP备20004035号

举报|意见反馈|Archiver|手机版|小黑屋|MACD俱乐部 ( 陕ICP备20004035号 )

GMT+8, 2024-3-19 15:36 , Processed in 0.073949 second(s), 14 queries , Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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