|
|
O1(主程式), w; m5 v& I5 ~' ?7 z
G65P2X2011.Y05.Z01.
) \: Z0 I; Q7 o4 K8 F8 G. dM0
9 R0 ~- L' h: e1 Q" dG65P2X2012.Y02.Z29. T( I5 i7 |& |; N! v5 \
M08 d" n9 d. n' @4 V9 t
, f$ O7 g3 p' J. T- sX表示西元，Y月份，Z是幾號0 P. ~, {' R! U, ]
% c$ @8 u3 W* R9 G7 _# M1 m
0 u9 E$ ]1 h$ N* C* D2 _%9 U e7 U1 R! m8 u) E( H
O2(副程式)- x& K) k- [% [2 n( c" y
#100=0. (平年)
2 ?) m# @- ?+ @2 NIF[#24MOD4.EQ0.]THEN#100=1.(預設閏年三月份+1天): | ` m: x% J2 @" D
#1=31.
% A, U8 r' \( @#2=59.+#1001 B F6 i) \( g) _9 @, c
#3=90.+#100
/ H% h; R' i" N. \: k, \$ I#4=120.+#100; I6 Z. f7 y" K, t/ j7 x2 w$ q4 }
#5=151.+#100, u: e' }: z2 ` E4 b1 M5 E; @
#6=181.+#100' u" E; O! ~) D3 G" R
#7=212.+#100
# T O3 U" m+ L0 R* W* f: F( l#8=243.+#100
0 q: j. z! k8 P( y#9=273.+#100
: n7 a$ a* Y1 H#10=304.+#1008 E" X5 Z1 X1 N4 s
#11=334.+#100
% b$ l. Z- p @; A7 P9 k; J#101=#[#25-1.]+#26 公式：(月數-1.)+日數; k/ F" o Q' ?$ W6 P/ L3 `' I& D
#102=#24-1.8 z" F( j0 q/ L- q* }! V6 @4 w4 d
#103=FIX[#102/4.]8 k+ \% v) p# a' k. H
#104=FIX[#102/100.]
/ P' }$ n; `" j- q+ n3 a+ x#105=FIX[#102/400.]
: K6 d; Z: h) T5 G) ~0 |#106=#102+#103-#104+#105+#101" b# x7 H/ p) P$ N* M3 l! H" C/ Y
#107=#106MOD7
$ ~7 P) J: A9 r$ p# u2 @" W2 w y8 gIF[#107EQ0.]THEN#107=7.2 U# S1 F9 U0 C) c
T#107M6+ \4 i; P& n0 ?4 l7 n) E
M99+ r3 D h$ ?4 }
%# F( a9 _) R: \
1 w* a0 h6 V; U( B$ W: _* C# A$ Y: ]
|
|
发表于 2011-10-23 08:10:58
QQ好友和群
收藏
淘帖
问题专业，描述清楚
伸手党/灌水/看不懂
楼主
