|
|
O1(主程式)
, w7 U0 L# }) t. FG65P2X2011.Y05.Z01.
5 c/ R" ^5 h0 W* }% AM0; L5 w1 n! C+ u' R7 i) q/ r
G65P2X2012.Y02.Z29.- d# K' y! w7 F
M0 m* N$ A% O5 v8 C$ S4 F/ d
1 R7 [# c) ~/ y- y# EX表示西元，Y月份，Z是幾號8 Q: f5 W5 F, Q& P" _8 \/ N
1 ~) ~- N9 E! q7 \! {( G
2 L+ G# g7 Q" J0 X5 Q4 n%5 `' R) \/ {6 \7 f
O2(副程式)0 m9 a" P% U: g" J5 H! r5 d" w
#100=0. (平年) 4 e$ g( d$ ~0 x% t' q e( |
IF[#24MOD4.EQ0.]THEN#100=1.(預設閏年三月份+1天)
7 I2 K6 g5 B- g/ n4 p#1=31. 4 A0 Z0 Z- X& n. s+ q! C3 n9 A
#2=59.+#100
$ K2 ~2 j t `: o, u#3=90.+#100
+ S9 e6 o! f+ V! D6 {1 r; { V#4=120.+#1006 Y3 C4 w4 f. j
#5=151.+#100" n! C- _1 ~( L: b6 e7 T. U
#6=181.+#100/ b) \! e, N1 S. I8 ]
#7=212.+#100
% s" B$ w5 K0 i% Y2 M1 D4 u#8=243.+#100
Z& {+ ^( ~% h$ h S* A#9=273.+#1004 N9 ^ c( W/ r. ?; `" S
#10=304.+#1000 X4 \/ i% Y8 Z0 ]( H5 b
#11=334.+#100! r- C5 K5 i. F& l+ L/ U
#101=#[#25-1.]+#26 公式：(月數-1.)+日數
5 Z6 T( v- Z( a$ E#102=#24-1.
' F" U# u$ }& @#103=FIX[#102/4.]
1 A9 A) a2 x" [2 ?#104=FIX[#102/100.]& m m* I* x# [
#105=FIX[#102/400.]
! G# i1 g* E* f" a#106=#102+#103-#104+#105+#101
' L6 b& Z5 e; ]1 r2 I+ q#107=#106MOD7
* f l C% p5 d( w/ uIF[#107EQ0.]THEN#107=7.+ q7 w d% x) i8 e
T#107M6
5 `& e3 \: Y/ }0 M' yM99# g2 U8 e4 ?& D" [
%
6 d9 ]8 h' T. r4 X4 K9 c6 L. ]% d2 k4 j6 m- O7 }
' A% K4 c' @; ^. U: m0 N
|
|
发表于 2011-10-23 08:10:58
楼主
