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

gono9981

O1(主程式)
G65P2X2011.Y05.Z01.
$ q2 g+ i& q" W- E: i, t5 d: A2 k! rM0
G65P2X2012.Y02.Z29.
M0
- l8 }* I5 t6 f& ~
6 ]& O$ j& {6 Z" Z1 aX表示西元，Y月份，Z是幾號
  A: d6 k0 }" R( ^- l, Y" `
9 u7 E' q% J* o/ \
+ m8 t( L: r% q# ^. E: M%
9 w& x  [' }- G1 ~O2(副程式)
9 \0 D* |) w% t- w3 N5 k( U' Y#100=0. (平年)   
IF[#24MOD4.EQ0.]THEN#100=1.(預設閏年三月份+1天)
#1=31.                     
#2=59.+#100
; l! D" m( F6 q+ o#3=90.+#100
* ~/ ^9 t* `% s7 @0 V# b" }#4=120.+#100
#5=151.+#100
# B' P& B- ?5 H7 p) `% n5 `#6=181.+#100
#7=212.+#100
#8=243.+#100
#9=273.+#100
. \: j, y: P0 a* m0 ]' }5 B" F" u#10=304.+#100
#11=334.+#100
#101=#[#25-1.]+#26  公式：(月數-1.)+日數
9 J; D9 r( v: o) Q  Y, H  X8 d#102=#24-1.
8 u$ R% g" w( A* a' W' N#103=FIX[#102/4.]
+ a4 z. s* i  f+ @8 _# e#104=FIX[#102/100.]
. r- ~" r$ f% d6 w$ O$ x$ f, E4 _#105=FIX[#102/400.]
9 v- C5 ?' d/ t#106=#102+#103-#104+#105+#101
) S/ }& A0 `$ R$ m( _" I; `, |#107=#106MOD7
IF[#107EQ0.]THEN#107=7.
( k( _: S) b* }6 F$ y3 yT#107M6
M99
7 c: q% i- y7 e* K: d& o) U%
6 X. N3 `& j0 _: T. c# l

时光.........

高手                第一次见

gono9981

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

八级工

这个玩玩还是可以的。

gono9981

這個拿來玩玩無傷大雅.....
5 \" B/ H5 y) |, H0 ?" _6 S' ]可以算出未來及過去的日子是星期幾.....

gaojian2008

很有创意！！！！！！！！！！！！！！！！！！！！