gono9981 发表于 2013-10-31 22:36:35

自己寫的萬年曆，請大家多多指教

O1(主程式)
G65P2X2011.Y05.Z01.
M0
G65P2X2012.Y02.Z29.
M0
X表示西元，Y月份，Z是幾號
%
O2(副程式)
#100=0. (平年)
IF[#24MOD4.EQ0.]THEN#100=1.(預設閏年三月份+1天)
#1=31.      
#2=59.+#100
#3=90.+#100
#4=120.+#100
#5=151.+#100
#6=181.+#100
#7=212.+#100
#8=243.+#100
#9=273.+#100
#10=304.+#100
#11=334.+#100
#101=#[#25-1.]+#26公式：(月數-1.)+日數
#102=#24-1.
#103=FIX[#102/4.]
#104=FIX[#102/100.]
#105=FIX[#102/400.]
#106=#102+#103-#104+#105+#101
#107=#106MOD7
IF[#107EQ0.]THEN#107=7.
T#107M6
M99
%32

时光......... 发表于 2013-10-31 22:37:17

高手      第一次见

gono9981 发表于 2013-10-31 22:38:02

如果是星期一，CNC會換第1把刀，
啟動後CNC會換第7把刀，表示當天是星期天

八级工 发表于 2013-10-31 22:38:58

这个玩玩还是可以的。

gono9981 发表于 2013-10-31 22:39:39

這個拿來玩玩無傷大雅.....
可以算出未來及過去的日子是星期幾.....

gaojian2008 发表于 2013-10-31 22:40:27

很有创意！！！！！！！！！！！！！！！！！！！！
页: [1]
查看完整版本: 自己寫的萬年曆，請大家多多指教