时间排卦
K:=SYSPARAM(1)=BARPOS;
年:DRAWYITEXT(K,1,GANZHI(DATE,0,0),0),colorFF8888;
月:DRAWYITEXT(K,1,GANZHI(DATE,0,1),0),SHIFT15,colorFF00FF;
日:DRAWYITEXT(DATE AND K,1,GANZHI(DATE,0,2),0),SHIFT30,colorFF;
Y1:=MOD(LYEAR-1990+6,12)+1;
Y2:=Y1+LMONTH+LDAY;
Y:=IF(INBLOCK('上海指数') OR INBLOCK('深圳指数'),Y2,Y2+ZQDMSUM);
WK:=WEEKDAY=1 OR WEEKDAY=2 OR WEEKDAY=3 OR WEEKDAY=4 OR WEEKDAY=5;
G1:=IF(WK,Y,0);
G2:=MOD(G1,24);
G3:=IF(WK AND G2=0,24,0);
G:=G2+G3;
DRAWTEXT(K AND G=1,0,'171\n 乾宫：天山遁 离宫：天火同人（归魂）\n六神 伏 神 【本 卦】 【变 卦】\n朱雀 ▅▅▅▅▅ 父母壬戌土 ▅▅▅▅▅ 父母壬戌土 应\n青龙 ▅▅▅▅▅ 兄弟壬申金 应 ▅▅▅▅▅ 兄弟壬申金 \n玄武 ▅▅▅▅▅ 官鬼壬午火 ▅▅▅▅▅ 官鬼壬午火 \n白虎 ▅▅▅▅▅ 兄弟丙申金 ▅▅▅▅▅ 子孙己亥水 世\n螣蛇 妻财甲寅木 ▅▅ ▅▅ 官鬼丙午火 世 ▅▅ ▅▅ 父母己丑土 \n勾陈 子孙甲子水 ▅▅ ▅▅ 父母丙辰土 ×→ ▅▅▅▅▅ 妻财己卯木 \n'),color99FF33;
DRAWTEXT(K AND G=9,0,'173\n 乾宫：天山遁 乾宫：天地否（六合）\n六神 伏 神 【本 卦】 【变 卦】\n朱雀 ▅▅▅▅▅ 父母壬戌土 ▅▅▅▅▅ 父母壬戌土 应\n青龙 ▅▅▅▅▅ 兄弟壬申金 应 ▅▅▅▅▅ 兄弟壬申金 \n玄武 ▅▅▅▅▅ 官鬼壬午火 ▅▅▅▅▅ 官鬼壬午火 \n白虎 ▅▅▅▅▅ 兄弟丙申金 ○→ ▅▅ ▅▅ 妻财乙卯木 世\n螣蛇 妻财甲寅木 ▅▅ ▅▅ 官鬼丙午火 世 ▅▅ ▅▅ 官鬼乙巳火 \n勾陈 子孙甲子水 ▅▅ ▅▅ 父母丙辰土 ▅▅ ▅▅ 父母乙未土 \n'),color99FF33;
DRAWTEXT(K AND G=17,0,'175\n 乾宫：天山遁 离宫：火山旅\n六神 伏 神 【本 卦】 【变 卦】\n白虎 ▅▅▅▅▅ 父母壬戌土 ▅▅▅▅▅ 官鬼己巳火 \n螣蛇 ▅▅▅▅▅ 兄弟壬申金 应○→ ▅▅ ▅▅ 父母己未土 \n勾陈 ▅▅▅▅▅ 官鬼壬午火 ▅▅▅▅▅ 兄弟己酉金 应\n朱雀 ▅▅▅▅▅ 兄弟丙申金 ▅▅▅▅▅ 兄弟丙申金 \n青龙 妻财甲寅木 ▅▅ ▅▅ 官鬼丙午火 世 ▅▅ ▅▅ 官鬼丙午火 \n玄武 子孙甲子水 ▅▅ ▅▅ 父母丙辰土 ▅▅ ▅▅ 父母丙辰土 世\n'),color99FF33;
DRAWTEXT(K AND G=2,0,'282\n 兑宫：泽地萃 兑宫：泽水困（六合）\n六神 【本 卦】 【变 卦】\n白虎 ▅▅ ▅▅ 父母丁未土 ▅▅ ▅▅ 父母丁未土 \n螣蛇 ▅▅▅▅▅ 兄弟丁酉金 应 ▅▅▅▅▅ 兄弟丁酉金 \n勾陈 ▅▅▅▅▅ 子孙丁亥水 ▅▅▅▅▅ 子孙丁亥水 应\n朱雀 ▅▅ ▅▅ 妻财乙卯木 ▅▅ ▅▅ 官鬼戊午火 \n青龙 ▅▅ ▅▅ 官鬼乙巳火 世×→ ▅▅▅▅▅ 父母戊辰土 \n玄武 ▅▅ ▅▅ 父母乙未土 ▅▅ ▅▅ 妻财戊寅木 世\n'),color99FF33;
DRAWTEXT(K AND G=10,0,'284\n 兑宫：泽地萃 坤宫：水地比（归魂）\n六神 【本 卦】 【变 卦】\n白虎 ▅▅ ▅▅ 父母丁未土 ▅▅ ▅▅ 子孙戊子水 应\n螣蛇 ▅▅▅▅▅ 兄弟丁酉金 应 ▅▅▅▅▅ 父母戊戌土 \n勾陈 ▅▅▅▅▅ 子孙丁亥水 ○→ ▅▅ ▅▅ 兄弟戊申金 \n朱雀 ▅▅ ▅▅ 妻财乙卯木 ▅▅ ▅▅ 妻财乙卯木 世\n青龙 ▅▅ ▅▅ 官鬼乙巳火 世 ▅▅ ▅▅ 官鬼乙巳火 \n玄武 ▅▅ ▅▅ 父母乙未土 ▅▅ ▅▅ 父母乙未土 \n'),color99FF33;
DRAWTEXT(K AND G=18,0,'286\n 兑宫：泽地萃 乾宫：天地否（六合）\n六神 【本 卦】 【变 卦】\n白虎 ▅▅ ▅▅ 父母丁未土 ×→ ▅▅▅▅▅ 父母壬戌土 应\n螣蛇 ▅▅▅▅▅ 兄弟丁酉金 应 ▅▅▅▅▅ 兄弟壬申金 \n勾陈 ▅▅▅▅▅ 子孙丁亥水 ▅▅▅▅▅ 官鬼壬午火 \n朱雀 ▅▅ ▅▅ 妻财乙卯木 ▅▅ ▅▅ 妻财乙卯木 世\n青龙 ▅▅ ▅▅ 官鬼乙巳火 世 ▅▅ ▅▅ 官鬼乙巳火 \n玄武 ▅▅ ▅▅ 父母乙未土 ▅▅ ▅▅ 父母乙未土 \n'),color99FF33;
DRAWTEXT(K AND G=19,0,'311\n 乾宫：火天大有（归魂） 离宫：火风鼎\n六神 【本 卦】 【变 卦】\n白虎 ▅▅▅▅▅ 官鬼己巳火 应 ▅▅▅▅▅ 官鬼己巳火 \n螣蛇 ▅▅ ▅▅ 父母己未土 ▅▅ ▅▅ 父母己未土 应\n勾陈 ▅▅▅▅▅ 兄弟己酉金 ▅▅▅▅▅ 兄弟己酉金 \n朱雀 ▅▅▅▅▅ 父母甲辰土 世 ▅▅▅▅▅ 兄弟辛酉金 \n青龙 ▅▅▅▅▅ 妻财甲寅木 ▅▅▅▅▅ 子孙辛亥水 世\n玄武 ▅▅▅▅▅ 子孙甲子水 ○→ ▅▅ ▅▅ 父母辛丑土 \n'),color99FF33;
DRAWTEXT(K AND G=3,0,'313\n 乾宫：火天大有（归魂） 艮宫：火泽睽\n六神 【本 卦】 【变 卦】\n白虎 ▅▅▅▅▅ 官鬼己巳火 应 ▅▅▅▅▅ 官鬼己巳火 \n螣蛇 ▅▅ ▅▅ 父母己未土 ▅▅ ▅▅ 父母己未土 \n勾陈 ▅▅▅▅▅ 兄弟己酉金 ▅▅▅▅▅ 兄弟己酉金 世\n朱雀 ▅▅▅▅▅ 父母甲辰土 世○→ ▅▅ ▅▅ 父母丁丑土 \n青龙 ▅▅▅▅▅ 妻财甲寅木 ▅▅▅▅▅ 妻财丁卯木 \n玄武 ▅▅▅▅▅ 子孙甲子水 ▅▅▅▅▅ 官鬼丁巳火 应\n'),color99FF33;
DRAWTEXT(K AND G=11,0,'315\n 乾宫：火天大有（归魂） 乾宫：乾为天（六冲）\n六神 【本 卦】 【变 卦】\n白虎 ▅▅▅▅▅ 官鬼己巳火 应 ▅▅▅▅▅ 父母壬戌土 世\n螣蛇 ▅▅ ▅▅ 父母己未土 ×→ ▅▅▅▅▅ 兄弟壬申金 \n勾陈 ▅▅▅▅▅ 兄弟己酉金 ▅▅▅▅▅ 官鬼壬午火 \n朱雀 ▅▅▅▅▅ 父母甲辰土 世 ▅▅▅▅▅ 父母甲辰土 应\n青龙 ▅▅▅▅▅ 妻财甲寅木 ▅▅▅▅▅ 妻财甲寅木 \n玄武 ▅▅▅▅▅ 子孙甲子水 ▅▅▅▅▅ 子孙甲子水 \n'),color99FF33;
DRAWTEXT(K AND G=20,0,'422\n 兑宫：雷泽归妹（归魂） 震宫：震为雷（六冲）\n六神 伏 神 【本 卦】 【变 卦】\n白虎 ▅▅ ▅▅ 父母庚戌土 应 ▅▅ ▅▅ 父母庚戌土 世\n螣蛇 ▅▅ ▅▅ 兄弟庚申金 ▅▅ ▅▅ 兄弟庚申金 \n勾陈 子孙丁亥水 ▅▅▅▅▅ 官鬼庚午火 ▅▅▅▅▅ 官鬼庚午火 \n朱雀 ▅▅ ▅▅ 父母丁丑土 世 ▅▅ ▅▅ 父母庚辰土 应\n青龙 ▅▅▅▅▅ 妻财丁卯木 ○→ ▅▅ ▅▅ 妻财庚寅木 \n玄武 ▅▅▅▅▅ 官鬼丁巳火 ▅▅▅▅▅ 子孙庚子水 \n'),color99FF33;
DRAWTEXT(K AND G=4,0,'424\n 兑宫：雷泽归妹（归魂） 坤宫：地泽临\n六神 伏 神 【本 卦】 【变 卦】\n白虎 ▅▅ ▅▅ 父母庚戌土 应 ▅▅ ▅▅ 兄弟癸酉金 \n螣蛇 ▅▅ ▅▅ 兄弟庚申金 ▅▅ ▅▅ 子孙癸亥水 应\n勾陈 子孙丁亥水 ▅▅▅▅▅ 官鬼庚午火 ○→ ▅▅ ▅▅ 父母癸丑土 \n朱雀 ▅▅ ▅▅ 父母丁丑土 世 ▅▅ ▅▅ 父母丁丑土 \n青龙 ▅▅▅▅▅ 妻财丁卯木 ▅▅▅▅▅ 妻财丁卯木 世\n玄武 ▅▅▅▅▅ 官鬼丁巳火 ▅▅▅▅▅ 官鬼丁巳火 \n'),color99FF33;
DRAWTEXT(K AND G=12,0,'426\n 兑宫：雷泽归妹（归魂） 艮宫：火泽睽\n六神 伏 神 【本 卦】 【变 卦】\n白虎 ▅▅ ▅▅ 父母庚戌土 应×→ ▅▅▅▅▅ 官鬼己巳火 \n螣蛇 ▅▅ ▅▅ 兄弟庚申金 ▅▅ ▅▅ 父母己未土 \n勾陈 子孙丁亥水 ▅▅▅▅▅ 官鬼庚午火 ▅▅▅▅▅ 兄弟己酉金 世\n朱雀 ▅▅ ▅▅ 父母丁丑土 世 ▅▅ ▅▅ 父母丁丑土 \n青龙 ▅▅▅▅▅ 妻财丁卯木 ▅▅▅▅▅ 妻财丁卯木 \n玄武 ▅▅▅▅▅ 官鬼丁巳火 ▅▅▅▅▅ 官鬼丁巳火 应\n'),color99FF33;
DRAWTEXT(K AND G=13,0,'531\n 巽宫：风火家人 艮宫：风山渐（归魂）\n六神 伏 神 【本 卦】 【变 卦】\n白虎 ▅▅▅▅▅ 兄弟辛卯木 ▅▅▅▅▅ 兄弟辛卯木 应\n螣蛇 |
