|
|
O1(主程式)7 V* H. e+ G: d) P
G65P2X2011.Y05.Z01.' Y$ ?; ?# D2 _# B* n
M0
7 }) Z3 @7 X. H, p! X% q! r" DG65P2X2012.Y02.Z29.
8 O. a' G- z. q, u) kM06 A+ g& X5 y/ L/ w8 l4 w3 q" P% a& O
, F* O! U$ @. H& Z2 GX表示西元，Y月份，Z是幾號
' h& V4 ^1 j5 C5 h9 M4 r& T& ?6 F. ^! J7 Q- c/ w
0 S2 k5 `4 @8 ~% \. F! z%) l# i1 n3 {0 G0 P, }# ?$ ]- V
O2(副程式)9 W( m# t `$ @8 w
#100=0. (平年)
) m: _) D2 W- ]" w2 @IF[#24MOD4.EQ0.]THEN#100=1.(預設閏年三月份+1天)) |' ~* a# R( G' S; n+ u
#1=31. ' l& n; a% w8 @! U
#2=59.+#100# W' l! w4 f9 q. B1 n/ U
#3=90.+#1009 ~) l- v6 h2 E# @
#4=120.+#100
$ g+ o" s% c6 Z# V" y- _; W#5=151.+#100
: q" w" s4 H0 F4 Y#6=181.+#100: q4 ?; x1 l8 I' v
#7=212.+#100
/ h/ z! U( [( }+ }) |' t& R#8=243.+#100
& W, e9 _ P, V" E4 H#9=273.+#1002 z( u |. u' D( D8 U" b1 ~/ E* C8 w
#10=304.+#100' r$ d1 W6 Z) y7 n4 H& o5 b7 H5 Q5 n/ I
#11=334.+#100
0 N4 x# `! c( G. o4 @" {#101=#[#25-1.]+#26 公式：(月數-1.)+日數
, r" @, k4 _3 `, N9 _#102=#24-1.3 {, E. P) v; C/ B4 i7 r
#103=FIX[#102/4.]9 v; J+ |. i- }: \( z
#104=FIX[#102/100.]
8 s4 v+ B% E6 S6 `1 u#105=FIX[#102/400.]! _/ w4 q+ K6 V* z2 _3 o
#106=#102+#103-#104+#105+#101( U' Q* F, D/ j9 b y- L7 _/ _ T
#107=#106MOD7
# i6 @" g$ x& z$ X8 jIF[#107EQ0.]THEN#107=7.
' I% [4 c' E" x# I2 n z; r! ^T#107M6
( w4 Z. U+ K6 W& K; J3 t# k) g$ d5 T" ~M993 f/ C# f$ B+ I7 b5 |
%
" {- j, h, K. j9 y
( [! ?5 l" U: ]1 B( G
5 X+ _ h/ f. @$ Z$ s) g) w |
|
發表于 2011-10-23 08:10:58
QQ好友和群
QQ空間
