|
|
O1(主程式)
5 ]& V* ]+ H' [! pG65P2X2011.Y05.Z01.
, W# h7 \! P) t3 ^# V1 ]+ XM09 [8 f+ ^% T& d8 R
G65P2X2012.Y02.Z29.2 a* x8 R- D- v% Q
M0
: C2 P5 M% Q ^% S$ I
* j2 N3 i5 e& ` w. {X表示西元，Y月份，Z是幾號2 K- E4 {) K0 I k
. h9 B3 X a- u6 C7 H, |
- B+ j& \3 g/ z5 p%
/ I7 ~% s% ]6 G$ TO2(副程式)
( C8 x4 t/ \% q/ J+ A; ?3 D9 ], ~#100=0. (平年)
9 X$ y# b6 A) t0 {2 y! M3 W/ }IF[#24MOD4.EQ0.]THEN#100=1.(預設閏年三月份+1天), q$ x# [$ K& Q6 U) n% B# `
#1=31.
: c, S- |8 H# x1 ?#2=59.+#100
$ y/ X( ~) U2 O( r5 Q! m& [#3=90.+#100
6 T3 R0 N+ L: \, U6 ]% J: j#4=120.+#100
; {; L' i/ ]# Q% y#5=151.+#100' C% {+ W# z7 d' o& l# F8 \6 M
#6=181.+#1003 j4 P+ n# E: K0 [
#7=212.+#100
1 B2 x% z! a( X% z# D#8=243.+#100: s3 l8 j; P* C
#9=273.+#100
( K c7 B ^0 B8 m, }1 |# p#10=304.+#100' X* g& F: a) B" C- I: M
#11=334.+#100& \* b. X( B* i, R1 O
#101=#[#25-1.]+#26 公式：(月數-1.)+日數5 z N; }1 t' T, I; j9 A' b
#102=#24-1." X* P, j! ] }+ f. G5 \
#103=FIX[#102/4.], l: a6 B/ F. u7 C
#104=FIX[#102/100.]
7 x6 i: L5 h$ z+ _3 r/ M#105=FIX[#102/400.]4 ]3 J v$ J( x6 j
#106=#102+#103-#104+#105+#101
* x( j/ t j3 E9 |3 A#107=#106MOD7
6 Y6 X, u$ h% m3 N3 J, WIF[#107EQ0.]THEN#107=7.6 P0 D+ n- N/ k. K8 s/ S
T#107M6
9 t: U/ V$ h, F0 U5 sM99" e2 v! v* }) Z7 m0 M2 \: e/ O) X Z
%: ~* O' }2 V: [5 H: |; i
+ t* N9 u6 V$ G( H
4 w& g t9 L7 t* r: J |
|
發表于 2011-10-23 08:10:58
QQ好友和群
收藏
淘帖
問題專業，描述清楚
伸手黨/灌水/看不懂
樓主
