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

gono9981

O1(主程式)
G65P2X2011.Y05.Z01.
- }. ], l$ C: E$ h  @9 PM0
G65P2X2012.Y02.Z29.
M0
% ]8 o: |, W, f+ p* v. v7 w/ ^+ v1 K! v
X表示西元,，Y月份,，Z是幾號

$ O' D' V* ?! O2 V0 Q5 e! E
0 s1 x# f3 s! m; e2 O; K%
- Y9 e8 t3 p) [2 pO2(副程式)
#100=0. (平年)   
9 G+ V5 x& h7 ]0 W2 Q7 A9 MIF[#24MOD4.EQ0.]THEN#100=1.(預(yù)設(shè)閏年三月份+1天)
#1=31.                     
) N, `5 Z; O' y& d8 ]! a! M+ Q#2=59.+#100
#3=90.+#100
#4=120.+#100
+ I% ?: p5 W5 F; B* S8 ?#5=151.+#100
2 o2 j* w  K3 a- _3 A: n#6=181.+#100
0 S, _% ?; R# P7 m4 a  g% w#7=212.+#100
#8=243.+#100
#9=273.+#100
3 i5 Y3 J! c- L3 ~$ [, _$ M% m7 D  I#10=304.+#100
6 u6 \% t. Z7 ~; X6 Q7 R+ M#11=334.+#100
#101=#[#25-1.]+#26  公式：(月數(shù)-1.)+日數(shù)
6 q& C: r1 X4 p* c#102=#24-1.
" T& M' D$ w3 W#103=FIX[#102/4.]
' x! T* r$ b: Y. h, [9 V9 [) O- C, D6 w#104=FIX[#102/100.]
#105=FIX[#102/400.]
#106=#102+#103-#104+#105+#101
9 K- y& {' V8 l. _#107=#106MOD7
# a' C& E# I( I% N0 bIF[#107EQ0.]THEN#107=7.
T#107M6
) N5 o$ b$ {5 U5 e' oM99
4 i/ d. I$ W* P9 Z* O%


( [4 }: w$ o5 k7 v1 K

時(shí)光.........

高手                第一次見

gono9981

如果是星期一,，CNC會換第1把刀，
6 \/ T" @5 A( s* a! N: h啟動後CNC會換第7把刀,，表示當(dāng)天是星期天

八級工

這個(gè)玩玩還是可以的,。

gono9981

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

gaojian2008

很有創(chuàng)意！�,。,。。,。,。。,。,。。,。,。。,。,。。。,。,。�