|
|
O1(主程式)
% H+ |4 Z: u2 u: D$ cG65P2X2011.Y05.Z01.
% H; _% ]$ d* q( Y0 e# e/ a, pM0% P/ p) [2 z' Z" z- P% u
G65P2X2012.Y02.Z29.
" e, |: P6 z( }; M DM05 A' d% y' v4 F5 y
- T0 P/ _, j3 l7 ~' c! zX表示西元，Y月份，Z是幾號
# ^7 e+ o1 |- O. w+ s5 P
) b- D P% c$ p" f9 M
! v3 K5 M( J9 D* \; R# e%
7 s! u6 |- U4 m* B( DO2(副程式)
1 A: w4 {, C1 }. h* l: J$ \#100=0. (平年)
4 ?1 t* [4 |1 l- F: ?! YIF[#24MOD4.EQ0.]THEN#100=1.(預設閏年三月份+1天)+ ]. F8 `/ s w$ E- X# V: A) b, Q* O
#1=31.
/ J% o* ]# Z( P& f7 \# n/ P# o#2=59.+#100& L( ?# [0 z4 S% V( U! Y/ r/ t
#3=90.+#1007 c. ~! N% k+ ]* R
#4=120.+#1005 P1 D1 M; W+ x5 E
#5=151.+#100
/ [) `8 c9 \, O2 h- d$ S/ T#6=181.+#100
% B% S, O( y1 x# B8 q#7=212.+#100/ o# _3 k2 Q" B
#8=243.+#100
% G6 z& m5 C5 E1 w- J0 c#9=273.+#100
8 L" p/ r) W5 i#10=304.+#100" U4 F; l) D, n3 V
#11=334.+#100
2 g; y; N6 Q4 P( h% Q; |7 A- _#101=#[#25-1.]+#26 公式：(月數-1.)+日數
; n1 i6 L4 q3 y4 s* h; T" J, a' J" E#102=#24-1.
9 C: j; G7 R' z- i1 [#103=FIX[#102/4.]+ d7 }" L- X# t7 P. p
#104=FIX[#102/100.]
4 K2 ?/ S: _# N8 M#105=FIX[#102/400.]& {6 a' l6 h- C6 o: M$ p' n
#106=#102+#103-#104+#105+#101
( z2 @; g6 h5 ]( p) g c! j2 {#107=#106MOD7
, |+ j# V& k" \) o3 VIF[#107EQ0.]THEN#107=7.) h4 W9 @1 x+ B& {9 I
T#107M6
' Q- h4 ^/ L3 g5 L: u7 CM99' x! T/ w. C3 s
%
! D3 t( F5 R1 ]! {- d7 y! j2 K- V2 N, H8 O4 p
0 [( r0 L( F9 M+ x
|
|
發表于 2011-10-23 08:10:58
QQ好友和群
QQ空間
