|
|
O1(主程式)! q4 Y, B) l+ w. r, b& H+ M
G65P2X2011.Y05.Z01.
( ?! `6 y4 V; X# U3 u- x+ H2 [M0( S4 E9 A* L( O) @* |; H
G65P2X2012.Y02.Z29.! Y. E) q' i) y7 Q+ y4 m
M02 Y3 T o, n) S
! J0 S- C+ L& ^2 r1 H. \3 sX表示西元，Y月份，Z是幾號
1 P8 |3 r1 d6 q, U: G. P) C
0 H8 F) L' R0 I) O4 r! d$ K+ q
%
+ h0 P# z- M, I; {( mO2(副程式) f* h0 {6 J: P3 ?' b2 n- v
#100=0. (平年) " j: T/ h R' A% g% m
IF[#24MOD4.EQ0.]THEN#100=1.(預(yù)設(shè)閏年三月份+1天)
w( Z- o* {% v% f3 ?1 g) ?#1=31.
# q5 m# V R4 M9 y' B9 W5 d0 ]#2=59.+#100 [) A" v* @: P4 n0 f% W' J7 E/ q
#3=90.+#100/ Z- C: \* \! a6 E+ F
#4=120.+#100
# I, V2 V- Y+ \* `- O( E#5=151.+#100
8 m5 H# u3 j1 \' T9 D#6=181.+#100 G$ c6 c. A" p
#7=212.+#100
& \3 c( t$ R+ {( w#8=243.+#1007 C" F" j; k8 q
#9=273.+#1002 z7 H/ Q: r; g+ i6 G
#10=304.+#100# x* k: ?) O8 s- ~7 Z9 t3 @) Y
#11=334.+#100* v. B+ I/ x+ U( ? c6 r
#101=#[#25-1.]+#26 公式：(月數(shù)-1.)+日數(shù)
8 _! ^. E$ s. G1 z#102=#24-1.
/ j8 z( `: ~! X" C#103=FIX[#102/4.]
0 N8 g7 z3 R3 b* m# M+ e5 K6 r( B" c#104=FIX[#102/100.]- U3 c. B) T1 G6 n
#105=FIX[#102/400.]& i1 w' l" ]. b1 D
#106=#102+#103-#104+#105+#101
$ b/ V, l% U0 Z#107=#106MOD7
' D8 x, | Z6 `5 E: `" bIF[#107EQ0.]THEN#107=7.
5 W' S! b0 U9 s4 e2 J8 K. vT#107M6
: [! J5 U% K' K1 vM99
- A7 X1 M9 w) v. w%
0 N: r2 H4 L7 g+ x! P- [' ]9 B! A2 {
; O4 y7 L$ j; H- z: t2 l. h b. b |
|
發(fā)表于 2011-10-23 08:10:58
QQ好友和群
收藏
淘帖
問題專業(yè)，描述清楚
伸手黨/灌水/看不懂
樓主
