c-ge-japan_calendar 1.0.0

data/History.txt

@@ -0,0 +1,6 @@
+=== 1.0.0 / 2009-08-13
+
+* 1 major enhancement
+
+  * Birthday!
+

data/Manifest.txt

@@ -0,0 +1,6 @@
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+lib/japan_calendar.rb
+test/test_japan_calendar.rb

data/README.txt

@@ -0,0 +1,57 @@
+= japan_calendar
+
+* http://github.com/c-ge/JapanCalendar
+
+== DESCRIPTION:
+
+ ���{�̃J�����_�[�N���X�ł��B
+ �N�����w�肷��Ƃ��̌��̏j�Փ����������J�����_�[(JapanCalendar)��Ԃ��܂��B
+
+== FEATURES/PROBLEMS:
+
+* none
+
+== SYNOPSIS:
+
+  require 'japan_calendar'
+
+  jcal = JapanCalendar.new(2009, 5)
+  1.upto(jcal.days) do |day|
+    holidayCount += 1 if jcal.holiday? day
+    workdayCount += 1 if jcal.workday? day
+    puts jcal.holiday_name(day) if jcal.holiday? day
+  end
+
+== REQUIREMENTS:
+
+* ruby
+* gem
+
+== INSTALL:
+
+* sudo gem install c-ge-JapanCalendar
+
+== LICENSE:
+
+GPLv2
+
+Copyright (c) 2009 cyberwave
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,12 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+
+Hoe.spec 'japan_calendar' do
+  developer('c-ge', 'nashiki.shigeyuki@cyberwave.jp')
+
+  # self.rubyforge_name = 'japan_calendarx' # if different than 'japan_calendar'
+end
+
+# vim: syntax=ruby

data/bin/japan_calendar

@@ -0,0 +1 @@
+#!/

data/lib/japan_calendar.rb

@@ -0,0 +1,310 @@
+# = JapanCalender
+# Author::    梨木 繁幸(Nashiki Shigeyuki)[http://cyberwave.jp/nashiki/]
+# Copyright:: Copyright 2009 cyberwave.jp[http://cyberwave.jp/]
+# License::   GPL v2
+#
+# 日本のカレンダークラスです。
+# 年月を指定するとその月の祝祭日が入ったカレンダー(JapanCalendar)を返します。
+#
+# === 使い方
+#   gem install japan_calendar
+#
+# === サンプルソース
+#   require 'japan_calendar'
+#
+#   jcal = JapanCalendar.new(2009, 5)
+#   1.upto(jcal.days) do |day|
+#     holidayCount += 1 if jcal.holiday? day
+#     workdayCount += 1 if jcal.workday? day
+#     puts jcal.holiday_name(day) if jcal.holiday? day
+#   end
+
+
+# === JapanCalendarクラスの機能
+#
+# 1. その日が、平日かどうか取得できます。
+# 2. その日が、祝祭日かどうか取得できます。
+# 3. 祝祭日のとき、日本語名を取得できます。
+# 4. 土曜日を休日扱いにするかしないか設定できます。
+#    * 初期設定では土曜日は平日扱い
+
+class JapanCalendar
+  VERSION = '1.0.0'
+
+  attr_reader :year, :month
+  attr_reader :holidays, :workdays, :not_holidays, :days
+
+  # [year]
+  #   年を指定します。
+  #   省略時は、実行時の年になります。
+  # [month]
+  #   月をしてします。
+  #   省略時は、実行時の月になります。
+  # [saturday_holiday_flg]
+  #   土曜日を給仕扱いする場合はTrueを指定します。
+  #   False又は省略した時は、法令どおり土曜日は平日扱いになります。
+  def initialize(year = nil, month = nil, saturday_holiday_flg = false)
+    # 土曜日を祝日扱いするかフラグ
+    @saturday_holiday_flg = saturday_holiday_flg
+
+    # 呼び出し日の取得(内部利用)
+    @now = Time.now
+
+    # 取得対象年月（省略時はコール時の年月）
+    @year = if year == nil then @now.year else year end
+    @month = if month == nil then @now.month else month end
+    
+    # その月の月末日
+    @days = Date.new(@year, @month, -1).strftime("%d").to_i
+
+    # 日毎の休日フラグ（引数は日）
+    @holiday = []
+    # 日毎の日本語休日名（引数は日）
+    @holiday_name = []
+
+    # 対象月の日毎のTimeオブジェクトを作成（引数は日）
+    @month_time_objs = []
+    1.upto(@days) { |d|
+      @month_time_objs[d] = Time.local(@year, @month, d, 0, 0, 0)
+      @holiday[d] = false
+    }
+
+    holiday_str = <<EOS
+1 1       0         元旦
+1 15      -1999     成人の日
+1 HM2     2000-     成人の日
+2 11      0         建国記念の日
+3 SHUNBUN 0         春分の日
+4 29      -1988     天皇誕生日
+4 29      1989-2006 みどりの日
+4 29      2007-     昭和の日
+5 3       0         憲法記念日
+5 4       2007-     みどりの日
+5 5       0         こどもの日
+6 20      1996-2002 海の日
+6 HM3     2003-     海の日
+9 15      -2002     敬老の日
+9 HM3     2003-     敬老の日
+9 SYUBUN  0         秋分の日
+10 10      -1999     体育の日
+10 HM2     2000-     体育の日
+11 3       0         文化の日
+11 12      2009      天皇即位20年
+11 23      0         勤労感謝の日
+12 23      1989-     天皇誕生日
+EOS
+
+    holiday_str.split(/\n/).each do |line|
+      next if line == '' or line =~ /^\#/
+      line.sub!(/\#.*$/, '')
+      m, d, y, c = line.split(/\s+/, 4)
+      if y != '0'
+        if y[0,1] == '-'
+          next if @year > y[1,4].to_i
+        elsif y[-1,1] == '-'
+          next if @year < y[0,4].to_i
+        elsif y[4,1] == '-'
+          next if @year < y[0,4].to_i || @year > y[5,4].to_i
+        else
+          next if @year != y.to_i
+        end
+      end
+
+      if @month == m.to_i
+        case d
+        when 'SHUNBUN'
+          d = syunbun(@year).to_s
+        when 'SYUBUN'
+          d = syubun(@year).to_s
+        when 'HM2'
+          d = monday_of_week(2).to_s
+        when 'HM3'
+          d = monday_of_week(3).to_s
+        end
+        @holiday[d.to_i] = true
+        @holiday_name[d.to_i] = c
+      end
+    end
+
+    if @year >= 1986
+      i = 0
+      while i < 31 - 2
+        # 「国民の休日」判定
+        # 当日が祝日       次の日が祝日でない           次の日が日曜日でない           次の次の日が祝日
+        if @holiday[i] and @holiday[i + 1] == false and @month_time_objs[i + 1].wday != 0 and @holiday[i + 2]
+          @holiday[i + 1] = true
+          @holiday_name[i + 1] = '国民の休日'
+          i += 1                # skip
+        end
+        i += 1
+      end
+    end
+
+    # 休日の日数カウント
+    @holidays = 0
+    1.upto(@days) { |d|
+      @holidays += 1 if holiday?(d)
+    }
+    @workdays = @days - @holidays
+    @not_holidays = @workdays
+  end
+
+  # [mday]
+  #   日を指定します。(省略不可)
+  #
+  # 休日であればその休日日本語名称を返す
+  # 土曜日はNilを返す
+  def holiday_name mday
+    return @holiday_name[mday]
+  end
+
+  # [mday]
+  #   日を指定します。(省略不可)
+  #
+  # 当日かどうかを返します。
+  def today? mday
+    @now.year == @year and @now.month == @month and @now.mday == mday
+  end
+
+  # [mday]
+  #   日を指定します。(省略不可)
+  #
+  # 平日かどうかを返します。
+  def workday? mday
+    not holiday? mday
+  end
+
+  # [mday]
+  #   日を指定します。(省略不可)
+  #
+  # workday?の別名
+  def not_holiday? mday
+    workday? mday
+  end
+
+  # [mday]
+  #   日を指定します。(省略不可)
+  #
+  # 土日かどうかを返します。
+  def weekend? mday
+    return nil unless @month_time_objs[mday]
+    wday = @month_time_objs[mday].wday
+    return wday == 6 || wday == 0
+  end
+
+  # [mday]
+  #   日を指定します。(省略不可)
+  #
+  # 土曜日かどうかを返します。
+  def saturday? mday
+    return nil unless @month_time_objs[mday]
+    wday = @month_time_objs[mday].wday
+    return wday == 6
+  end
+
+  # [mday]
+  #   日を指定します。(省略不可)
+  #
+  # 日曜日かどうかを返します。
+  def sunday? mday
+    return nil unless @month_time_objs[mday]
+    return true if @holiday[mday]
+    wday = @month_time_objs[mday].wday
+    return wday == 0
+  end
+
+  # [mday]
+  #   日を指定します。(省略不可)
+  #
+  # 休日かどうかを返します。
+  # 土曜日を休日で返すかは、オブジェクト初期化時の土曜日を休日扱いするか否かの設定で決まる。
+  def holiday? mday
+    return nil unless @month_time_objs[mday]
+    return true if @holiday[mday]
+    wday = @month_time_objs[mday].wday
+
+    if (wday == 6 && @saturday_holiday_flg) || wday == 0
+      return true
+    end
+
+    status(mday) == 'holiday'
+  end
+
+  private
+  def status(mday)
+    return nil unless @month_time_objs[mday]
+    return 'holiday' if @holiday[mday]
+    wday = @month_time_objs[mday].wday
+
+    case wday
+    when 1
+      if @month_time_objs[mday].year >= 1973 and mday > 1 and @holiday[mday - 1]
+        # 振替休日
+        'holiday'
+      else
+        'workday'
+      end
+    when 2..5
+      furikae2005(mday, wday)
+    when 0, 6
+      'weekend'
+    end
+  end
+
+  def wday(mday)
+    return nil unless @month_time_objs[mday]
+    @month_time_objs[mday].wday
+  end
+
+  # 2005 からの振替休日
+  # 連続する祝日が日曜日にかかると祝日の終りの次の平日を振替休日になる
+  def furikae2005(mday, wday)
+    year = @month_time_objs[mday].year
+    if year < 2005
+      return 'workday'
+    end
+    if mday <= wday
+      return 'workday'
+    end
+    (1..wday).each do |i|
+      if @holiday[mday - i] == false
+        return 'workday'
+      end
+    end
+    @holiday_name[mday] = '振替休日'
+    'holiday'
+  end
+
+  def monday_of_week(n)
+    count = 0
+    @month_time_objs.each_index do |d|
+      next if d < 1
+      count += 1 if @month_time_objs[d].wday == 1
+      return d if count == n
+    end
+  end
+
+  # 秋分の日
+  def syunbun(year)
+    # (31y+2525)/128-y/4+y/100    (1851年-1999年通用)
+    # (31y+2395)/128-y/4+y/100    (2000年-2150年通用)
+    if year > 2150
+      STDERR.print "over year's: #{year}\n"  #'
+      exit 1
+    end
+    v = if year < 2000 then 2213 else 2089 end
+    (31 * year + v)/128 - year/4 + year/100
+  end
+
+  # 春分の日
+  def syubun(year)
+    # (31y+2213)/128-y/4+y/100    (1851年-1999年通用)
+    # (31y+2089)/128-y/4+y/100    (2000年-2150年通用)
+    if year > 2150
+      STDERR.print "over year's: #{year}\n" #'
+      exit 1
+    end
+    v = if year < 2000 then 2525 else 2395 end
+    (31 * year + v)/128 - year/4 + year/100
+  end
+end

data/test/test_japan_calendar.rb

@@ -0,0 +1,152 @@
+# To change this template, choose Tools | Templates
+# and open the template in the editor.
+
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+
+require 'test/unit'
+require 'japan_calendar'
+require 'kconv'
+
+class TestJapanCalendar < Test::Unit::TestCase
+  def setup
+    @now = Time.now
+    @this_year = @now.year
+    @this_month = @now.month
+    @this_day = @now.day
+  end
+
+  
+  def test_holiday_workday_flg
+    # 対象年
+    year = 2009
+
+    # 年間カウンター初期化
+    workday_year_count = 0
+    holiday_year_count = 0
+
+    # 週の文字列
+    # 月の配列
+    # 12 か月分の配列
+    1.upto(12) do |month|
+
+      # 初期化
+      workdayCount = 0
+      holidayCount = 0
+      jcal = JapanCalendar.new(year, month, true)
+
+      1.upto(jcal.days) do |day|
+        holidayCount += 1 if jcal.holiday? day
+        workdayCount += 1 if jcal.workday? day
+      end
+
+      # puts "#{year}/#{month}　日数#{workdayCount + holidayCount}　平日#{workdayCount}(時間：#{workdayCount*7.5})　休日#{holidayCount}　稼働率#{workdayCount * 100 / (workdayCount + holidayCount)}%".tosjis
+      workday_year_count = workday_year_count + workdayCount
+      holiday_year_count = holiday_year_count + holidayCount
+    end
+
+    # puts "年間日数#{workday_year_count + holiday_year_count}　平日#{workday_year_count}　休日#{holiday_year_count}　稼働率#{workday_year_count * 100 / (workday_year_count + holiday_year_count)}%".tosjis
+
+    assert_equal(365, workday_year_count + holiday_year_count)
+    assert_equal(121, holiday_year_count)
+  end
+
+  def test_days
+    jcal = JapanCalendar.new(2009, 4)
+    assert_equal 30, jcal.days
+    jcal = JapanCalendar.new(2009, 5)
+    assert_equal 31, jcal.days
+    jcal = JapanCalendar.new(2009, 6)
+    assert_equal 30, jcal.days
+  end
+
+  def test_holiday?
+    jcal = JapanCalendar.new(2009, 5)
+    # 休日以外
+    assert_equal false, jcal.workday?(3)
+    assert_equal false, jcal.not_holiday?(3)
+    # 祝祭日(初期設定では土曜日は平日扱い)
+    assert_equal true, jcal.holiday?(3)
+
+    # 土曜、又は、日曜、確認
+    assert_equal true, jcal.weekend?(3)
+    # 土曜、確認
+    assert_equal false, jcal.saturday?(3)
+    # 日曜、確認
+    assert_equal true, jcal.sunday?(3)
+  end
+
+  def test_saturday_is_holiday
+    # 設定を省略すると、土曜は休日扱いにはなっていない
+    jcal = JapanCalendar.new(2009, 5)
+    assert_equal false, jcal.holiday?(2)
+
+    # 土曜を休日扱いにする
+    jcal = JapanCalendar.new(2009, 5, true)
+    assert_equal true, jcal.holiday?(2)
+
+    # 土曜を休日扱いにしない
+    jcal = JapanCalendar.new(2009, 5, false)
+    assert_equal false, jcal.holiday?(2)
+  end
+
+  def test_days
+    # 土曜日を休日扱いしない
+    jcal = JapanCalendar.new(2009, 5)
+    # 休日
+    assert_equal 8, jcal.holidays
+    # 平日
+    assert_equal 23, jcal.workdays
+    assert_equal 23, jcal.not_holidays
+    # 月末日
+    assert_equal 31, jcal.days
+
+    # 土曜日を休日扱い
+    jcal = JapanCalendar.new(2009, 5, true)
+    # 休日
+    assert_equal 13, jcal.holidays
+    # 平日
+    assert_equal 18, jcal.workdays
+    assert_equal 18, jcal.not_holidays
+    # 月末日
+    assert_equal 31, jcal.days
+  end
+
+  def test_attr_reader
+    jcal = JapanCalendar.new(2009, 5)
+    assert_equal 2009, jcal.year
+    assert_equal 5, jcal.month
+  end
+
+  def test_holiday_name
+    # 2009年4月
+    jcal = JapanCalendar.new(2009, 4)
+    assert_equal '昭和の日', jcal.holiday_name(29)
+
+    # 2009年5月
+    jcal = JapanCalendar.new(2009, 5)
+    assert_equal nil, jcal.holiday_name(2)
+    assert_equal '憲法記念日', jcal.holiday_name(3)
+    assert_equal 'みどりの日', jcal.holiday_name(4)
+    assert_equal 'こどもの日', jcal.holiday_name(5)
+    assert_equal '振替休日', jcal.holiday_name(6)
+  end
+
+  def test_initialize_no_parameter
+    # newの引数が無いと実行時の年月が指定される
+    jcal = JapanCalendar.new
+    assert_equal @this_year, jcal.year
+    assert_equal @this_month, jcal.month
+  end
+
+  def test_today?
+    jcal = JapanCalendar.new
+    1.upto(jcal.days) { |day|
+      if day == @this_day
+        assert_equal true, jcal.today?(day)
+      else
+        assert_equal false, jcal.today?(day)
+      end
+    }
+
+  end
+end

metadata

@@ -0,0 +1,72 @@
+--- !ruby/object:Gem::Specification 
+name: c-ge-japan_calendar
+version: !ruby/object:Gem::Version 
+  version: 1.0.0
+platform: ruby
+authors: 
+- c-ge
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-08-13 00:00:00 -07:00
+default_executable: japan_calendar
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 2.3.3
+    version: 
+description: "\xE6\x97\xA5\xE6\x9C\xAC\xE3\x81\xAE\xE3\x82\xAB\xE3\x83\xAC\xE3\x83\xB3\xE3\x83\x80\xE3\x83\xBC\xE3\x82\xAF\xE3\x83\xA9\xE3\x82\xB9\xE3\x81\xA7\xE3\x81\x99\xE3\x80\x82\r \xE5\xB9\xB4\xE6\x9C\x88\xE3\x82\x92\xE6\x8C\x87\xE5\xAE\x9A\xE3\x81\x99\xE3\x82\x8B\xE3\x81\xA8\xE3\x81\x9D\xE3\x81\xAE\xE6\x9C\x88\xE3\x81\xAE\xE7\xA5\x9D\xE7\xA5\xAD\xE6\x97\xA5\xE3\x81\x8C\xE5\x85\xA5\xE3\x81\xA3\xE3\x81\x9F\xE3\x82\xAB\xE3\x83\xAC\xE3\x83\xB3\xE3\x83\x80\xE3\x83\xBC(JapanCalendar)\xE3\x82\x92\xE8\xBF\x94\xE3\x81\x97\xE3\x81\xBE\xE3\x81\x99\xE3\x80\x82"
+email: 
+- nashiki.shigeyuki@cyberwave.jp
+executables: 
+- japan_calendar
+extensions: []
+
+extra_rdoc_files: 
+- History.txt
+- Manifest.txt
+- README.txt
+files: 
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- lib/japan_calendar.rb
+- test/test_japan_calendar.rb
+has_rdoc: false
+homepage: http://github.com/c-ge/JapanCalendar
+licenses: 
+post_install_message: 
+rdoc_options: 
+- --main
+- README.txt
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: japan_calendar
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: "\xE6\x97\xA5\xE6\x9C\xAC\xE3\x81\xAE\xE3\x82\xAB\xE3\x83\xAC\xE3\x83\xB3\xE3\x83\x80\xE3\x83\xBC\xE3\x82\xAF\xE3\x83\xA9\xE3\x82\xB9\xE3\x81\xA7\xE3\x81\x99\xE3\x80\x82\r \xE5\xB9\xB4\xE6\x9C\x88\xE3\x82\x92\xE6\x8C\x87\xE5\xAE\x9A\xE3\x81\x99\xE3\x82\x8B\xE3\x81\xA8\xE3\x81\x9D\xE3\x81\xAE\xE6\x9C\x88\xE3\x81\xAE\xE7\xA5\x9D\xE7\xA5\xAD\xE6\x97\xA5\xE3\x81\x8C\xE5\x85\xA5\xE3\x81\xA3\xE3\x81\x9F\xE3\x82\xAB\xE3\x83\xAC\xE3\x83\xB3\xE3\x83\x80\xE3\x83\xBC(JapanCalendar)\xE3\x82\x92\xE8\xBF\x94\xE3\x81\x97\xE3\x81\xBE\xE3\x81\x99\xE3\x80\x82"
+test_files: 
+- test/test_japan_calendar.rb