|
|
O1(主程式)
3 e3 l% X: b% MG65P2X2011.Y05.Z01.$ _' g/ b# q; B
M0
/ H* X* ~0 L: ]G65P2X2012.Y02.Z29.
5 K8 _ y6 ]( D, q3 {0 w# IM0! b, C9 }7 [- X. Q' Z9 ^. P ?
6 y; |& w# R) Q# i# n
X表示西元，Y月份，Z是幾號* Q2 t6 X7 ^# a6 w
0 ]; i/ ~) Z! B& Y/ y% E. y2 m3 J9 Q+ g2 P+ \2 \4 a+ C8 P" a% \
%
# Y2 B) ^; q, { M8 ^O2(副程式)8 Q% W6 z" m: K- l7 v
#100=0. (平年)
% j- |" `7 ]7 K+ z; l; P/ b' hIF[#24MOD4.EQ0.]THEN#100=1.(預設閏年三月份+1天)
; F0 _( ^4 E. u1 n6 R#1=31.
5 T9 r+ g$ C1 E% v#2=59.+#1007 X: x( E) q0 r# Y4 l4 |+ P3 o
#3=90.+#1000 ~% d: t3 M$ q9 Q( S
#4=120.+#1003 ` Z/ i% L6 g2 b9 b
#5=151.+#100
/ y# }( O+ c, H0 w O9 }#6=181.+#100
! i, V: ?1 X( _; A5 e#7=212.+#100
1 G6 ], m+ e; A1 B#8=243.+#100
# u( z6 O8 m$ F' v0 c/ ?5 P#9=273.+#100: `6 k |2 y7 K2 z, Z5 z( x
#10=304.+#100' U, H/ G5 g7 j+ w' k$ C& Q* |
#11=334.+#100( I2 _* d0 j2 i3 j8 t
#101=#[#25-1.]+#26 公式：(月數-1.)+日數* J* Q+ z8 @/ E" w A1 C
#102=#24-1.% ?/ q" B7 ]7 X- v, c: k: }
#103=FIX[#102/4.]
I& x% a9 K- {! m( Z#104=FIX[#102/100.]
+ V' J# I l* W- Z6 ?9 G#105=FIX[#102/400.]
* G% e2 |: C; e3 y" o, k#106=#102+#103-#104+#105+#101 M+ V. n9 `6 s8 x3 F! H! K% P
#107=#106MOD7
' Q& H$ ]- _/ o3 W- {IF[#107EQ0.]THEN#107=7." z5 ]0 ]; {$ v' ?) j' B, s
T#107M6
6 j( U3 X8 C% V; m; BM99# j/ w5 i% ?* F4 t- c; w9 u4 `
%
1 r/ d( D" ?7 M% r3 m+ \) b& H/ T5 x9 ~, m0 x) [2 q# ?7 L- ~
( |5 f" W1 G& E6 p, v6 X8 ~ |
|
发表于 2011-10-23 08:10:58
