|
|
O1(主程式)
9 @0 }4 n q5 [9 F: ~( NG65P2X2011.Y05.Z01.
6 ]9 E" U" {- MM06 U& e6 F7 u S( L8 I! t$ p
G65P2X2012.Y02.Z29.9 [& w' m. K( a+ H
M08 S/ F8 n0 h3 h) w+ w( J/ B
* l t$ g) c& Z- y2 V# Q# |
X表示西元，Y月份，Z是幾號
% B) I) F! d/ p2 u# E. v) ]
3 [/ A" M6 k0 d! ?6 y1 ]1 A7 X" h1 Q
%
7 Y; C, Q; a% ~( `2 yO2(副程式)
* |. i- [# P7 M# G7 a3 p#100=0. (平年) ( t% r1 @3 }* q% |6 A/ x
IF[#24MOD4.EQ0.]THEN#100=1.(預設閏年三月份+1天)$ |' D: W# T7 Q5 _7 [& p( \0 @
#1=31. 9 Q( Y4 W9 Q1 m% t
#2=59.+#1000 ~' b4 S1 b2 ]) [% D; J
#3=90.+#100
$ h/ l8 L5 E3 o" v, o5 @#4=120.+#1000 `, e; Q% B) | `8 d" F
#5=151.+#100
8 M( d: F1 @8 I#6=181.+#100
; j( U8 H2 c v7 {' M; E% n( u2 G#7=212.+#100
* r+ O( [5 m# |#8=243.+#100
% R' p6 |, c1 M#9=273.+#100, x0 ^: g! `# k4 `+ k- d) P
#10=304.+#100; c+ j5 _. N& Q+ b$ d8 |
#11=334.+#1004 z" }4 G: t/ Q. U1 V1 l
#101=#[#25-1.]+#26 公式：(月數-1.)+日數, B7 ^7 ~1 [- l& ? ]" K0 A
#102=#24-1.! [; h9 H. }& x
#103=FIX[#102/4.]2 Z' u( d8 K B3 A8 Z; D6 D
#104=FIX[#102/100.]
; D b6 {! J" H X) k. o#105=FIX[#102/400.]; t( p6 q, a8 I- X" }2 X
#106=#102+#103-#104+#105+#101
) T' K# P* S& I5 F# f4 t#107=#106MOD7
' T$ H7 Q% S: vIF[#107EQ0.]THEN#107=7.
( G/ q% h& \+ m: mT#107M6
/ Z4 t* f+ R- J$ E: M* F: WM99# u" e2 h7 R) n
%( r, ^3 L- s* @5 g, D; J
% {5 D! ?+ a5 R" Q# e4 \8 u0 m
8 }7 @% q# w5 Y- ~; g: O |
|
發表于 2011-10-23 08:10:58
QQ好友和群
QQ空間
