|
|
O1(主程式)* [' n9 _4 u( y3 J4 |
G65P2X2011.Y05.Z01.' d1 r* v) t0 ?2 @ }, L
M0
8 A" i3 f+ j- P7 N; PG65P2X2012.Y02.Z29.
8 r: O7 D a2 n4 [; r7 qM0
2 a: B5 B# ~; c6 @0 `1 q0 C9 {% d/ v5 A
X表示西元,，Y月份,，Z是幾號(hào)( @+ P+ P& B$ H, S1 `
! d. a3 p1 Y" N3 P
& u" D& v* r. [9 n: I# k%
& x* s4 u- k4 p* FO2(副程式)& A3 a0 A" P# U2 S& ?7 a# w( Z
#100=0. (平年) : h: G+ H* q; g2 c' {8 J5 |
IF[#24MOD4.EQ0.]THEN#100=1.(預(yù)設(shè)閏年三月份+1天)1 d8 N6 Q5 j9 @
#1=31. 0 k, }) h( p7 N7 `, W
#2=59.+#100
1 L% R* m. v; B1 D, ]. _#3=90.+#100
$ {9 s* @$ J, i) }; j#4=120.+#1002 m/ p9 U; t' E, `! \) n
#5=151.+#100+ I/ ]4 U$ r" I- l0 z% E: L" S) P
#6=181.+#100
7 z* T# R% R4 ?( h. w#7=212.+#100
0 {* f5 C; l2 q3 N: L5 Q#8=243.+#100 [8 J% E/ w M. z+ p+ i
#9=273.+#1003 w8 ?; g1 I4 X0 W8 w8 j; W
#10=304.+#100
/ ?3 P, e5 B! J) c4 z" N( U#11=334.+#1001 |, E# i. r" V- o/ N% R# p i/ n1 \
#101=#[#25-1.]+#26 公式：(月數(shù)-1.)+日數(shù)
/ E4 a O. k2 I% T: P8 Y0 Y! Q3 l#102=#24-1.
* I3 b) g& e. B#103=FIX[#102/4.]5 x. c2 y# D! M- |1 F1 q: |
#104=FIX[#102/100.]( S$ |; ~* }" z* o! n1 W. y
#105=FIX[#102/400.]
1 ^$ ]" a1 `4 f4 J& ]#106=#102+#103-#104+#105+#1016 c* O4 o& [' O5 Z% L$ X; a
#107=#106MOD7
8 p6 O' k& d" z$ xIF[#107EQ0.]THEN#107=7.
3 m* v `' Y2 ?1 d2 vT#107M6) b5 M. Y: X0 B) s/ v7 x
M99
9 ^( p* c% [1 R' b9 _%3 |3 C) g2 m+ g* ?
+ X3 ~& x" F7 }4 j* c' w1 n, ]2 v8 v+ y2 Z9 y. R9 j
|
|
發(fā)表于 2011-10-23 08:10:58
QQ好友和群
收藏
淘帖
問題專業(yè)，描述清楚
伸手黨/灌水/看不懂
樓主
