切换到宽版
  • 2763阅读
  • 0回复

公式 24节气 [复制链接]

上一主题 下一主题
离线孟婆汤
 
发帖
33
金币
10757
威望
0
贡献值
0
开心币
0
只看楼主 倒序阅读 使用道具 楼主  发表于: 2003-06-15
{廿四节气主图}
Var1:=FILTER(MONTH=2 AND (DAY=3 OR DAY=5),2);
Var2:=FILTER(MONTH=2 AND (DAY=18 OR DAY=20),2);
Var3:=FILTER(MONTH=3 AND (DAY=5 OR DAY=7),2);
Var4:=FILTER(MONTH=3 AND (DAY=20 OR DAY=22),2);
Var5:=FILTER(MONTH=4 AND (DAY=4 OR DAY=6),2);
Var6:=FILTER(MONTH=4 AND (DAY=19 OR DAY=21),2);
Var7:=FILTER(MONTH=5 AND (DAY=6 OR DAY=8),2);
Var8:=FILTER(MONTH=5 AND (DAY=20 OR DAY=22),2);
Var9:=FILTER(MONTH=6 AND (DAY=5 OR DAY=7),2);
VarA:=FILTER(MONTH=6 AND (DAY=20 OR DAY=22),2);
VarB:=FILTER(MONTH=7 AND (DAY=6 OR DAY=8),2);
VarC:=FILTER(MONTH=7 AND (DAY=22 OR DAY=24),2);
VarD:=FILTER(MONTH=8 AND (DAY=7 OR DAY=9),2);
VarE:=FILTER(MONTH=8 AND (DAY=22 OR DAY=24),2);
VarF:=FILTER(MONTH=9 AND (DAY=7 OR DAY=9),2);
Var10:=FILTER(MONTH=9 AND (DAY=22 OR DAY=24),2);
Var11:=FILTER(MONTH=10 AND (DAY=7 OR DAY=9),2);
Var12:=FILTER(MONTH=10 AND (DAY=22 OR DAY=24),2);
Var13:=FILTER(MONTH=11 AND (DAY=7 OR DAY=9),2);
Var14:=FILTER(MONTH=11 AND (DAY=22 OR DAY=24),2);
Var15:=FILTER(MONTH=12 AND (DAY=6 OR DAY=8),2);
Var16:=FILTER(MONTH=12 AND (DAY=21 OR DAY=23),2);
Var17:=FILTER(MONTH=1 AND (DAY=5 OR DAY=7),2);
Var18:=FILTER(MONTH=1 AND (DAY=19 OR DAY=21),2);
Var19:=DRAWTEXT(Var2,HIGH*1.01,'雨\n水');
Var1A:=DRAWTEXT(Var3,HIGH*1.01,'惊\n蛰');
Var1B:=DRAWTEXT(Var4,HIGH*1.01,'春\n分');
Var1C:=DRAWTEXT(Var5,HIGH*1.01,'清\n明');
Var1D:=DRAWTEXT(Var6,HIGH*1.01,'谷\n雨');
Var1E:=DRAWTEXT(Var8,HIGH*1.01,'小\n满');
Var1F:=DRAWTEXT(Var9,HIGH*1.01,'芒\n种');
Var20:=DRAWTEXT(VarA,HIGH*1.01,'夏\n至');
Var21:=DRAWTEXT(VarB,HIGH*1.01,'小\n暑');
Var22:=DRAWTEXT(VarC,HIGH*1.01,'大\n署');
Var23:=DRAWTEXT(VarE,HIGH*1.01,'处\n暑');
Var24:=DRAWTEXT(VarF,HIGH*1.01,'白\n露');
Var25:=DRAWTEXT(Var10,HIGH*1.01,'秋\n分');
Var26:=DRAWTEXT(Var11,HIGH*1.01,'寒\n露');
Var27:=DRAWTEXT(Var12,HIGH*1.01,'霜\n降');
Var28:=DRAWTEXT(Var14,HIGH*1.01,'小\n雪');
Var29:=DRAWTEXT(Var15,HIGH*1.01,'大\n雪');
Var2A:=DRAWTEXT(Var16,HIGH*1.01,'冬\n至');
Var2B:=DRAWTEXT(Var17,HIGH*1.01,'小\n寒');
Var2C:=DRAWTEXT(Var18,HIGH*1.01,'大\n寒');

●立春: DRAWTEXT(Var1,HIGH*1.01,'●\n立\n春'),colorgreen ,;
●立夏: DRAWTEXT(Var7,HIGH*1.01,'●\n立\n夏'),colorred , ;
●立秋: DRAWTEXT(VarD,HIGH*1.01,'●\n立\n秋'),coloryellow ,;
●立冬: DRAWTEXT(Var13,HIGH*1.01,'●\n立\n冬'),colorblue , ;
交赤松 及羡门 受要秘道爱精神
食芝英 饮醴泉 柱杖桂枝佩秋兰
快速回复
限100 字节
批量上传需要先选择文件,再选择上传
 
上一个 下一个