|
|
O1(主程式)9 Q6 u9 \7 ^2 `! q8 J- l k
G65P2X2011.Y05.Z01.1 ^3 c- ^0 }* i; f) G ?
M0. d4 Z6 ^$ Y7 o5 G
G65P2X2012.Y02.Z29.
7 u" q( t. {5 o$ p1 M( EM06 z9 k3 v) G/ L j
* a" u% e A' j) z @) mX表示西元，Y月份，Z是幾號7 a' ~7 T5 V% R" n( v+ [
$ k- v C# c. ?6 B5 j6 r! @. o8 E5 ?$ |+ ^ D/ e9 {3 K9 W
%
- p4 L. c p! ?: t RO2(副程式)
' C" c" F+ k6 y% \& w#100=0. (平年) ) f9 X( d& o6 u$ q u @( l
IF[#24MOD4.EQ0.]THEN#100=1.(預設閏年三月份+1天). v# H4 i9 W% C0 v! |$ |
#1=31.
% ]9 j# |2 L& s+ Y; _#2=59.+#1002 \# ~$ ~$ Y7 [5 J# @
#3=90.+#100
4 Q/ @* t, }: \# p. E# C: S& m#4=120.+#100
% V& [) B/ _& s6 c/ A#5=151.+#100. F$ Z6 M9 J- S3 g9 y$ ]
#6=181.+#100& V0 C- l) I9 X. s* C! F: E
#7=212.+#1001 Y5 r |0 Z! u
#8=243.+#100
, v, G2 Z- f! n/ I#9=273.+#100
8 |( f- v% H: ] p3 o#10=304.+#100" r. T1 s, d8 T( c; D
#11=334.+#100
7 O( e, g6 }) X5 F. _5 d#101=#[#25-1.]+#26 公式：(月數-1.)+日數
; ^; A8 s$ a+ r) G#102=#24-1.3 e$ Y, y8 z+ E; H
#103=FIX[#102/4.]
; O" ~8 A' i* c0 Z. u#104=FIX[#102/100.]* i/ T4 _+ c, @0 x! i1 ]5 `4 R
#105=FIX[#102/400.]: m" e' S) J7 `
#106=#102+#103-#104+#105+#101; T7 I% B( K. {- M$ k
#107=#106MOD7
7 o- J* j3 y+ JIF[#107EQ0.]THEN#107=7.
9 G8 U6 r; A* ^$ V6 BT#107M6' @$ u% g' v; @. q8 {8 H) R! K
M99- k7 F5 T, B. ]0 v( }
%
- l, g% q7 Z3 G* Z Y0 G/ s) w: n1 K9 ^* r0 F. i# W
/ u! E0 O: b( R2 n- O# Q |
|
发表于 2011-10-23 08:10:58
