|
|
O1(主程式)
0 W0 p- A6 D4 X) [G65P2X2011.Y05.Z01.- X; q. l, u0 P* _5 f" u% n! @
M0
. }1 b# [- T! ~7 `2 t1 H7 gG65P2X2012.Y02.Z29.
7 ^# f$ s/ J- `8 X n. yM0
6 f$ V( \9 K2 s/ y
; @! m- |1 _/ b8 k- J" h; b& GX表示西元，Y月份，Z是幾號9 V1 V4 S p1 Q/ u7 o
. r9 b* W. L# ?: I4 K* Y8 N. n
7 w- A; N* B, n%
2 J3 r% U, w* w& \O2(副程式)% ?% B# L9 R6 i: l) i/ {
#100=0. (平年)
$ k+ o6 L( \$ l: @" n5 VIF[#24MOD4.EQ0.]THEN#100=1.(預設閏年三月份+1天)
% M, q) Y V. k6 {8 A. r7 J1 \#1=31. % f% [2 q$ U T$ D$ Q
#2=59.+#100
: O I: _: Q2 a) ~#3=90.+#100
' h+ I4 \0 t( W#4=120.+#100
! ]! M) e3 V2 z6 C. k#5=151.+#1002 l4 O% I' o4 d& o1 V
#6=181.+#1002 i0 G* b5 n6 r+ h9 j5 G
#7=212.+#100
/ U1 o3 h7 I) d! Z& U# f5 M* R* C#8=243.+#100/ [) n- E# C5 S8 |' c3 R3 c% {
#9=273.+#100+ P2 B1 l. ^2 c* ^- X& F) G
#10=304.+#100% i8 V4 M. u# e( Z
#11=334.+#1001 e0 b/ }$ ?7 q
#101=#[#25-1.]+#26 公式：(月數-1.)+日數
) w8 l0 h' |( \' Y9 j#102=#24-1.
4 u* R$ h5 `$ k1 K( J* n( F3 T6 D#103=FIX[#102/4.]
6 \2 m0 c4 Q( C" n) {* O& x. ?#104=FIX[#102/100.]6 R1 y0 ^7 q* a* _* i
#105=FIX[#102/400.]' r9 q$ y S. _ v4 B0 R, }
#106=#102+#103-#104+#105+#101
- N, p0 L7 D/ @, f% X4 |/ j#107=#106MOD7
q' J# t! Z6 \ y( j4 xIF[#107EQ0.]THEN#107=7.. T3 e& ?6 Z# P
T#107M6# W& M4 g X5 U+ M1 e
M99
- m" k( P3 D6 M5 H3 ]3 N1 R%3 d8 {1 d4 X, b; U( O* f5 p
7 g! b2 E$ G c: B6 J& K: o9 p5 {; L' R+ C1 K9 T3 d- t
|
|
发表于 2011-10-23 08:10:58
