|
|
O1(主程式)
/ Y; M7 e0 c& J/ I2 NG65P2X2011.Y05.Z01.' z. S, Z% x ]% r
M0" q3 B- k$ g! O6 g: _8 h; i
G65P2X2012.Y02.Z29.
A$ ?4 e+ J+ O; RM0
& S: D. C( k; }+ ^7 ^8 F: c3 x3 v" g! q+ I9 r
X表示西元，Y月份，Z是幾號: M7 W4 E p# [$ t! }) M
+ n( K. ~7 n0 }6 y* [2 N# F3 ?. Y8 |
%5 q) e( @) V5 r
O2(副程式)
" U" B, P1 j* Z% T) e7 Y#100=0. (平年) : ], y6 p, W! o0 N: X
IF[#24MOD4.EQ0.]THEN#100=1.(預設閏年三月份+1天)
5 m' c5 O% U# R8 `3 J+ A" D/ e#1=31. 6 ?6 I `/ Z. ^$ z
#2=59.+#100
2 ^7 J+ Q k/ {) O' u" L* f#3=90.+#100
/ r7 ]2 ?' D8 Q#4=120.+#100+ I. v/ g- q7 M9 Y% J8 y3 q
#5=151.+#100
: g$ {5 o! q+ r0 R8 }' s#6=181.+#1001 S6 p; e/ ?7 S8 q/ y( P
#7=212.+#100% \, @- e; M6 C! x% p& ~) ]! n
#8=243.+#100
2 r# o% {9 _% w7 m! ~) S' c6 Q#9=273.+#1003 j4 ~, F: J5 i
#10=304.+#100, u$ J0 N2 M" `5 G0 n5 w ?
#11=334.+#100
: }0 K8 A4 D b! q j1 F#101=#[#25-1.]+#26 公式：(月數-1.)+日數
8 K5 q; ~5 _3 v/ T% c5 \- h, x8 t#102=#24-1.
+ V" y8 Y" ?! z) j. ^) h#103=FIX[#102/4.]
' o) J1 D- G' t#104=FIX[#102/100.]8 Z" ^7 ?' ?) D2 O
#105=FIX[#102/400.]
+ W5 S% y- ~% l6 a7 }$ `#106=#102+#103-#104+#105+#101. e D: D2 U; i4 b: p* n
#107=#106MOD76 ^5 V9 f/ W k: b* G8 W: u/ |
IF[#107EQ0.]THEN#107=7.
" g# Y5 n( J/ [8 PT#107M68 k: c3 n; s( t$ y7 H0 o
M990 g7 \: D+ k9 j; v/ J# P
%
5 _! O$ _: n* ~" c+ P! k( R2 Q7 J7 ?/ d: A$ z
& |) k7 z1 u5 Y. o/ {4 k/ E |
|
發表于 2011-10-23 08:10:58
QQ好友和群
QQ空間
