home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / fj / sci / astro / 360 < prev    next >
Encoding:
Internet Message Format  |  1992-11-20  |  2.8 KB
  1. Path: sparky!uunet!ccut!sh.wide!fgw!fdm!pfrad!kate
  2. From: kate@pfu.fujitsu.co.JP (Yoshio Katayama)
  3. Newsgroups: fj.sci.astro
  4. Subject: Re: leap year
  5. Message-ID: <KATE.92Nov20212902@kagura.trad.pfu.fujitsu.co.jp>
  6. Date: 20 Nov 92 12:29:02 GMT
  7. References: <CHIAKI.92Nov19105522@alpen.furukawa.co.jp>
  8.     <823@headgw.hq.sony.co.jp>
  9.     <G2K032.92Nov20133513@aqua2c.cfi.waseda.ac.jp>
  10.     <G2K032.92Nov20184606@aqua39.cfi.waseda.ac.jp>
  11. Sender: news@pfrad.pfu.fujitsu.co.jp
  12. Distribution: fj
  13. Organization: PFU Limited, Tokyo Japan.
  14. Lines: 56
  15. In-reply-to: g2k032@cfi.waseda.ac.jp's message of 20 Nov 92 09:46:06 GMT
  16.  
  17. $@JR;3!w#P#F#U$H?=$7$^$9!#(J
  18.  
  19. In article <G2K032.92Nov20184606@aqua39.cfi.waseda.ac.jp>,
  20.     g2k032@cfi.waseda.ac.jp (KANOU Hiroki) writes:
  21.  
  22. >if (year % 4 == 0 && year % 100 != 0 && year % 4000 != 0) || year % 400 == 0)
  23. >        $@1<G/(J
  24. >$@$H=q$$$F$"$j$^$7$?!#%0%l%4%j%*Nq$NCV1<K!$K!V(J4000$@$G3d$j@Z$l$kG/$O1<(J$@G/$H$9$k!W(J
  25.  
  26. $@$3$l$O!"(J
  27.  
  28. if ((year % 4 == 0 && year % 100 != 0  || year % 400 == 0) && year % 4000 != 0)
  29.         $@1<G/(J
  30.  
  31. $@!V(J4000$@$G3d$j@Z$l$kG/$O1<G/$H$7$J$$!W(J
  32.  
  33. $@$N4V0c$$$@$H;W$$$^$9!#$3$&$9$k$H!"(J
  34.  
  35. >$@NqK!(J                   1$@G/$ND9$5(J      1$@F|$:$l$k$^$G$NG/?t(J       
  36. >$@%f%j%&%9Nq(J             365.25$@F|(J             $@Ls(J128$@G/(J  
  37. >$@%0%l%4%j%*Nq(J           365.2425$@F|(J          $@Ls(J3320$@G/(J
  38. >$@%.%j%7%cNq!&ElJ}?7Nq(J   365.24222222$@F|(J     $@Ls(J42680$@G/(J
  39. >$@!)!)Nq(J                 365.24225$@F|(J        $@Ls(J19540$@G/(J
  40. >$@@5$7$$CM(J               365.24219879$@F|(J
  41.  
  42. $@$3$N!)!)Nq$ND9$5$K6a$/$J$j$^$9!#(J
  43. $@$?$@$7!"87L)$K#1G/$ND9$5$r7W;;$7$?$N$G$O$J$/!"(J100$@F|$:$l$k$^$G$N(J
  44. $@G/?t$rD4$Y$^$7$?!#(J
  45.  
  46. >$@$3$N$h$&$JNqK!$O8+$?$3$H$,$"$j$^$;$s!#(J
  47.  
  48. $@;R6!$N;~!";R6!8~$1$N;vE5$+2?$+$GFI$s$@5-(J$@21$,$"$k$N$G$9$,!"(J3000$@G/(J
  49. $@$K#1EYH4$/$@$C$?$h$&$K3P$($F$$$^$9!#(J3000$@G/$K#1EY$NJ}$,8m:9$,B?$$(J
  50. $@!J(J7400$@!A(J7500$@G/$G#1F|$N8m:9!K$N$G!"?t;z$O5-210c$$$G$7$g$&!#(J(-.-;;
  51.  
  52. >$@2?$H$$$&L>A0$N$b$N$G!"$I$3$G:NMQ$5$l$F$$$k$+!"(J$@$I$J$?$+$4B8CN$"$j$^$;$s$+!)(J
  53.  
  54. $@L>A0$r;W$$$@$;$=$&$J$N$G$9$,!"8e#1Jb=P$F$-$^$;$s!#(J(_ _)
  55.  
  56. $@!t!D%L%9Nq$@$C(J$@$?$h$&$J(J
  57.  
  58. >$@$3$l$r8+$k$H!"$3$NL>>NITL@$NNqK!$OJ#;($J3d$K$O%.%j%7%cNq!&ElJ}?7Nq$N(J
  59. >$@H>J,$[$I$N@:EY$G$7$+(J$@$J$$$h$&$G$9$M!#(J
  60.  
  61. $@$=$&$G$9$+!)!!#C$N<0$K$9$k$H$d$d$3$7$=$&$G$9$,!"%0%l%4%j%*Nq$N:G(J
  62. $@8e$K!V(J4000$@G/!D!W$r(J$@IU$1$k$@$1$G$9$7!"1<G/$K$9$k!?$7$J$$$b!"(J
  63.  
  64.       4      100      400      4000
  65.       $@!{(J      $@!_(J       $@!{(J       $@!_(J
  66.  
  67. $@$H8r8_$K$J$j$^$9$+$i3P$(0W$$$H;W$$$^$9!#(J
  68. --
  69. ($@3t(J)$@#P#F#U!!#43+!K%=%U%H%&%'%"5;=Q?d?JIt!!3+(J$@H/5;=Q2](J
  70.     $@JR;3!!A1IW(J    E-mail: kate@pfu.fujitsu.co.jp
  71.           Tel:    0427-96-5211
  72.     $@!J$5!K!_#1(J  $@!J(J$@$]!K!_#1(J  $@!J%3!K!_#1(J  $@!J$$!K!_#2(J
  73.