|
|
O1(主程式)" J" x3 O+ R. ^8 F* G/ l
G65P2X2011.Y05.Z01.5 u- s/ x( T& m4 y& d4 S1 V
M0( _5 n' ~: n' y" H
G65P2X2012.Y02.Z29.
; L$ s' v) c5 I! O: x# h+ @M0
% n, W& p6 ~; u8 }; p! Z3 A1 o
X表示西元，Y月份，Z是幾號/ `9 z* _4 e5 u r7 I% ^/ n+ ]
n. [* |0 W) X
3 C) X: T1 S" ^- e%
+ K, J$ R3 g( m- E' oO2(副程式)
`6 r7 ^3 D7 e#100=0. (平年)
* j: R" y. _$ M0 L: bIF[#24MOD4.EQ0.]THEN#100=1.(預設閏年三月份+1天)0 a5 l& e) d; B4 ?2 J
#1=31.
+ b: H* d! ]7 E. F#2=59.+#100
3 X) V+ h5 `! X `3 g0 g#3=90.+#1003 P h7 l2 |5 T. E0 U
#4=120.+#1000 G+ X1 G, Q1 L
#5=151.+#100
$ v/ M- j5 Z8 n; |) o#6=181.+#1004 k$ U! E# a: E7 V( l% X
#7=212.+#1008 p1 s* P0 K& h! F! H2 e( n: P
#8=243.+#100' d1 F5 X. z$ @4 I/ V" {: ?. F
#9=273.+#1000 D* u) A4 W2 }) @; ]4 D S* \
#10=304.+#1004 b& I' f6 T0 q3 _ B! g) W
#11=334.+#100+ T2 F' c( U0 h. B: @$ B5 `; U0 K0 H5 h7 `
#101=#[#25-1.]+#26 公式：(月數-1.)+日數
: R* ?: _# K6 p8 f8 y( f$ M9 F#102=#24-1.9 Z0 \% _# U! X2 Z# O3 Y9 `
#103=FIX[#102/4.]% ?$ m2 r. `* ]8 |6 C/ {& Q
#104=FIX[#102/100.]
0 t" I/ I: a' ?5 P& Z& Z2 `. y+ X. s#105=FIX[#102/400.]
$ o. \5 r# v( N3 }- ]9 n#106=#102+#103-#104+#105+#101
8 ^: n2 z* x& J; h#107=#106MOD7
( `0 p! ~! U4 q l2 W1 T9 oIF[#107EQ0.]THEN#107=7.
2 a9 m/ p! w, _8 U$ Z2 b1 cT#107M6
2 e2 ]) M% U' |. a5 k) x# w: n$ SM992 W. a) L. M7 m7 o
%
0 F0 b \+ W$ O6 Q% _) j2 p# I3 S6 C) d6 N
. s/ Q( a% X! a) o
|
|
发表于 2011-10-23 08:10:58
QQ好友和群
收藏
淘帖
问题专业，描述清楚
伸手党/灌水/看不懂
楼主
