|
|
O1(主程式)4 d, O: R$ Y- a" y8 }! Z
G65P2X2011.Y05.Z01.. H# g+ |, j( q: j3 y- q# Q
M01 ^5 e% f9 A7 K# ^6 e* z: V
G65P2X2012.Y02.Z29.
% }2 f. q, ]0 T4 V- _1 Y) Z+ I. \3 \( TM0# C8 l+ ]% A& ]/ b
0 N+ M$ z, J h" T7 e" `4 eX表示西元，Y月份，Z是幾號
$ a3 a/ L, j( I! e4 w8 ?) j. V3 }- h( S
- m# U3 U6 r% n" Q2 x6 r9 K P
%
7 H- _. n5 V/ `O2(副程式)
2 ^+ ]( |6 H0 I j: J#100=0. (平年) 1 V. V$ b$ n; m" U0 l! F
IF[#24MOD4.EQ0.]THEN#100=1.(預設閏年三月份+1天)
Z% J3 h' c5 h y#1=31. % v- z( X1 j3 u# b7 g
#2=59.+#100
& H8 s, H( R% @3 ^! }( K! c#3=90.+#1009 U; I2 o) f0 D! m
#4=120.+#100" R& l2 l) ?3 e. p: @$ i4 b7 U
#5=151.+#100
& F$ c8 L% Z5 g1 c- C! J* u#6=181.+#100
. D! m0 a* S3 Y#7=212.+#100, C4 d: d, ^2 o* ~) ]
#8=243.+#100
/ D7 p; k3 d, z* c0 M#9=273.+#100
" p, t- j, e2 C/ J! \2 J#10=304.+#100
}+ L7 q/ I; \% l& T: C4 z#11=334.+#100
1 t4 K% @# w: U V3 y. b3 R. Y#101=#[#25-1.]+#26 公式：(月數-1.)+日數" s8 a" C, A2 R! F5 u+ h
#102=#24-1.5 c, H! Q" p) u
#103=FIX[#102/4.]
# b( G) u; b4 @! I/ o/ V6 u#104=FIX[#102/100.]
, U- o( v5 R, @6 U r$ }8 }#105=FIX[#102/400.]1 x) I6 r1 A3 Q/ O( e- ]
#106=#102+#103-#104+#105+#101
# l0 m0 u/ _/ e7 F$ ~+ o. h. U l8 g#107=#106MOD7+ z9 P" [0 p7 G1 o6 s; z4 V
IF[#107EQ0.]THEN#107=7.: ^7 W" H$ k; n+ q% H: A; J: h
T#107M61 E) Q% A' T/ z4 ~; b& ^, Z
M99
7 j; ] ~# e2 c U# ]- [2 X2 f' n%
. x, P% Z/ ]9 V
! f$ v1 X6 }$ j
7 P( [$ }9 V# K9 l4 M; d0 q" v% B |
|
发表于 2011-10-23 08:10:58
楼主
