[ruby-list:6890] date class

< ^ > P N |<>|^_>< --- | ~ ...Help
----Next_Part(Mon_Mar__2_19:17:19_1998_513)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

孔卅壬匹允﹝

手丹夫午勾及犯奶玄弁仿旦井手仄木卅中﹜母氾弁仿旦毛懊莞仄引允﹝

湘呿讀卅澀煌反 lib/date.rb 毛⑦楔④中牏飽␎騇袘銖﹞阬 俜氁及摯毛睡迕
仄引仄凶﹝Meeus 及難礞艉縣中�蚺中牏楔縣活═酗峇縣嶀豸鴾隊鴾飲銴窵韝阬
月及手卅氏卅及匹﹜引分心化引六氏﹝孔凶勾及昢及漁箕及今六井凶反 Oberon 及
凶戶及仿奶皮仿伉﹜Michael Griebling 今氏及 JulianDay.Mod 互輔嗶卞卅曰引仄
凶﹝仇及 JulianDay.Mod 互 Meeus 及摯毛勾井勻化中化﹜仇木毛咁沭仄化心方丹
井午手嗶尹引仄凶互﹜澀煌互竣卞中日卅中及匹支戶引仄凶﹝

母氾弁仿旦及冂藹

lib/date.rb 匹反荼昢ざ互裔爛卞卅勻化中引仄凶互 (敗嶄卞云仃月)﹜母氾弁
仿旦反憤苀卞澀爛允月仇午互匹五引允﹝犯白巧伙玄匹反弘伊打伉左昢毛壑釵匹瘉
侔備孆楔褪阬 迂絡刈コ10畸15ざ) 卞卅勻化中引允﹝

今幻升厙迕笠襖反卅中井手仄木引六氏互﹜母氾弁仿旦匹反答葭蟆及ざ尥手丐勾井
尹引允﹝

lib/date.rb 及奶件旦正件旦反コ畸ざ毛手勾方丹卞仄化中引允互﹜母氾弁仿旦匹
反交伉它旦ざ毛手勾方丹卞仄化中引允﹝弁仿旦及勾井歹木井凶井日仄化﹜仇及幻
丹互籥寧互方中方丹卞閤歹木月井日匹允﹝母氾#new 反交伉它旦ざ毛午月方丹卞仄
化﹜母氾#new3 (中中抩蟆互閤中勾井卅中) 反コ畸ざ毛午月方丹卞仄引仄凶﹝

仇及交伉它旦ざ午中丹及反﹜交伉它旦騷ざ午手中勻化 (Julian period﹜Julian
day number)﹜答葭蟆4713コ1畸1ざ (交伉它旦昢) 懇詬 (弘伉瓦永斥尪剽凜) 毛昢
葭 (0.0) 午仄凶騷ざ及仇午匹允﹝卅云﹜母氾弁仿旦匹反答葭蟆4713コ1畸1ざ毛
-4712コ1畸1ざ午丐日歹仄引允﹝コ卞云仃月騷ざ及仇午毛 Julian day number 午
憊允月諦★ (絰啎壑惜阬罹 互中引允互﹜午反楮溢互丐曰引六氏﹝引凶﹜交
伉它旦昢 (Julian calendar) 午手楮溢互丐曰引六氏﹝切卅心卞﹜交伉它旦ざ反嗶
副樊及扜褪及抩蟆卞﹜交伉它旦昢反市巨扔伙及抩蟆卞苀侳仄引允﹝

交伉它旦ざ反懇詬方曰揪爛仄化中化引允互﹜母氾弁仿旦卞云中化反凜對反尕邰卅
及匹﹜豳躂卞懇詬及揪爛毛手勻化ざ及交伉它旦ざ午允木壬方中歹仃匹允﹝仄
井仄卅互日﹜Meeus 及摯匹反詬蟆昲凜毛手勻化ざ及交伉它旦ざ午揪爛仄化云
曰﹜仇木反羹醒互勾中化接⑴仄中分仃卅及匹﹜母氾弁仿旦匹反懇詬及揪爛毛手勻
化ざ及交伉它旦ざ午卅月方丹竣楔④中牏飽阬

聊蛔卞譆掉芊互貲勻化捫迕互今木凶仇午互丐曰引允互﹜母氾弁仿旦匹反中勻
凶仇午反嗶庛仄引六氏﹝引凶﹜コ銨反中勾手1畸1ざ匹允﹝

to_s 及陘為膉瓣④中牏飽ㄔ嵽玉抩互切斤勻午啜中引允﹝丐引曰匹
卅中丟玉互丐勻凶曰﹜卅井勻凶曰仄引允﹝

竣卞卅月及反母氾弁仿旦及耨俇嶺匹允互﹜濛綜市伊件母□乒斥亙□伙午800コ蠢⼳
五寧六化腹據仄化心凶午仇欠﹜鍬啜反丐曰引六氏匹仄凶﹝切卅心卞﹜母氾弁仿旦
午市伊件母□乒斥亙□伙及失伙打伉朮丞反引勻凶仁唱卅月手及匹允﹝市伊件母□
乒斥亙□伙匹反迋★卅市伊件母□毛匹五月分仃讓域讀卞丐勾井丹方丹卞嗶尹日木
化中引允﹝迋★卅市伊件母□毛勾井勻化心凶中井凶反仇切日毛云魂仄仁分今中﹝

母氾弁仿旦卞勾中化及羼副支驕綽反中勾匹手曾牒仄引允﹝

--Tadayoshi Funaba

----Next_Part(Mon_Mar__2_19:17:19_1998_513)--
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

# date.rb: Written by Tadayoshi Funaba 1998
# $Id: date.rb,v 1.2 1998/03/02 10:02:39 tadf Exp $

class Date

  include Comparable

  MONTHNAMES   '', 'January', 'February', 'March', 'April', 'May', 'June',
    'July', 'August', 'September', 'October', 'November', 'December' ]

  DAYNAMES   'Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday',
    'Friday', 'Saturday' ]

  GREGORY  299161	# Oct 14, 1582
  ENGLAND  361222	# Sept 14, 1752

  def Date.civil_to_jd(y, m, d, gs  rue)
    if m <  then
      y - 
      m + 2
    end
    a  y / 100).to_i
    b  a / 4).to_i
    c   - a + b
    e  365.25 * (y + 4716)).to_i
    f  30.6001 * (m + 1)).to_i
    jd   + d + e + f - 1524
    unless (if gs.kind_of? Numeric then jd > s
	    else gs end) then
      jd - 
    end
    return jd
  end

  def Date.jd_to_civil(jd, gs  rue)
    unless (if gs.kind_of? Numeric then jd > s
	    else gs end) then
      a  d
    else
      w  (jd - 1867216.25) / 36524.25).to_i
      x  w / 4).to_i
      a  d + 1 + w - x
    end
    b   + 1524
    c  (b - 122.1) / 365.25).to_i
    d  365.25 * c).to_i
    e  (b - d) / 30.6001).to_i
    f  30.6001 * e).to_i
    day   - d - f
    if e < 3 then
      m   - 1
    else
      m   - 13
    end
    if m <  then
      y   - 4715
    else
      y   - 4716
    end
    return y, m, day
  end

  def initialize(jd  , gs  REGORY)
    @jd  d
    @gs  s
  end

  def Date.new3(y  4712, m  , d  , gs  REGORY)
    Date.new(Date.civil_to_jd(y, m, d, gs), gs)
  end

  def Date.today
    Date.new3(*Time.now.to_a[3..5].reverse)
  end

  def Date.mjd_to_jd(mjd)
    mjd + 2400000.5
  end

  def Date.jd_to_mjd(jd)
    jd - 2400000.5
  end

  def Date.tjd_to_jd(tjd)
    tjd + 2440000.5
  end

  def Date.jd_to_tjd(jd)
    jd - 2440000.5
  end

  def jd
    @jd
  end

  def mjd
    Date.jd_to_mjd(@jd)
  end

  def tjd
    Date.jd_to_tjd(@jd)
  end

  def year
    Date.jd_to_civil(@jd, @gs)[0]
  end

  def yday
    @jd - Date.civil_to_jd(year - 1, 12, 31, @gs)
  end

  def mon
    Date.jd_to_civil(@jd, @gs)[1]
  end

  def mday
    Date.jd_to_civil(@jd, @gs)[2]
  end

  def wday
    k  @jd + 1) % 7
    k +  if k < 0
    k
  end

  def leap?
    Date.jd_to_civil(Date.civil_to_jd(year, 2, 28, @gs) + 1, @gs)[1] 2
  end

  def + (other)
    if other.kind_of? Numeric then
      return Date.new(@jd + other, @gs)
    end
    raise TypeError, 'expected numeric'
  end

  def - (other)
    if other.kind_of? Numeric then
      return Date.new(@jd - other, @gs)
    elsif other.kind_of? Date then
      return @jd - other.jd
    end
    raise TypeError, 'expected numeric or date'
  end

  def <(other)
    if other.kind_of? Numeric then
      return @jd <other
    elsif other.kind_of? Date then
      return @jd <other.jd
    end
    raise TypeError, 'expected numeric or date'
  end

  def eql? (other)
    self other
  end

  def hash
    @jd
  end

  def to_s
    format('%04d-%02d-%02d', *Date.jd_to_civil(@jd, @gs))
  end

end

----Next_Part(Mon_Mar__2_19:17:19_1998_513)----