|
|
O1(主程式)" J! k' z4 V" ~+ d
G65P2X2011.Y05.Z01.- ~1 i0 E; x2 D2 I6 ^$ E0 {0 m
M0
( n8 W6 v2 F2 P5 ?) ^) x: UG65P2X2012.Y02.Z29.
- \) @ A0 u9 A5 L' E* ~M0
3 U- G1 ?* n" b) e; B4 R
7 B2 g/ C! r/ Z) z5 {" ?X表示西元，Y月份，Z是幾號( ~7 b0 {) T& ? v% D
2 N- @: ~9 G/ Z, J* ~/ v
2 q5 N0 w8 ]+ a( p, o# P%
8 Q9 i4 r \" NO2(副程式)4 |5 s: [3 R7 I# J/ R- ?+ E6 B
#100=0. (平年)
! [" A: C) g$ u* CIF[#24MOD4.EQ0.]THEN#100=1.(預設閏年三月份+1天)2 i3 D( z9 ~! {4 R7 Q
#1=31.
2 U1 A' p; ~# _; t+ F#2=59.+#100
$ n, ]2 ~6 ~3 S6 E0 Q#3=90.+#100) j+ f. s' I. u6 S
#4=120.+#100- Z) v: A" N, ]1 v# M4 O2 k
#5=151.+#100
G* z: `7 v. l) N1 m1 P1 J#6=181.+#100- `9 |0 O+ T* A
#7=212.+#100
4 _; s) x( J9 A" u; M- A% n6 w#8=243.+#1007 N/ ]$ n, k! R ~
#9=273.+#100* d6 K8 d3 z9 [) I
#10=304.+#100
U8 l3 r( r$ q& t#11=334.+#100
* R0 X S" F) R* ]#101=#[#25-1.]+#26 公式：(月數-1.)+日數
& F8 V0 m8 G7 C$ E3 g! l0 b#102=#24-1.
; P9 ^% e+ D( a* H#103=FIX[#102/4.]
$ w0 S% Z6 |# q6 h% L1 Z#104=FIX[#102/100.]
+ g X2 N7 l* X l1 n; z#105=FIX[#102/400.]
( ~+ z! [- _; ~4 A. G* i& E2 i#106=#102+#103-#104+#105+#101
8 |/ p$ W! S1 i# r#107=#106MOD7
% _" j; R9 N5 E9 U1 {$ K# W4 S" q. M, MIF[#107EQ0.]THEN#107=7., e- n; ]" O+ f+ n' b0 v2 M7 |- n
T#107M6$ b# d; L: p- h" q. z
M99) b. F4 S: b# s& V& R
%- y; U2 H9 g& n" a Q0 H/ a
! A) g& |9 j r( w% s5 n
5 Z: S6 }: B U( M _! ^1 w; |
|
|
发表于 2011-10-23 08:10:58
QQ好友和群
收藏
淘帖
问题专业，描述清楚
伸手党/灌水/看不懂
楼主
