DouKaku?beta

Comment detail

年間カレンダー (Nested Flatten) 
ちょっと長いか？

< January_2007 >
Sun Mon Tue Wed Thu Fri Sat 
      1   2   3   4   5   6 
  7   8   9  10  11  12  13 
 14  15  16  17  18  19  20 
 21  22  23  24  25  26  27 
 28  29  30  31 

・・・
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
require 'date'
y = ARGV[0].to_i

for m in 1 .. 12
  date = Date.new(y, m, 1)
  puts "< #{ Date::MONTHNAMES[date.month]}_#{y} >"
  Date::ABBR_DAYNAMES.each { |name|
    print name + " "
  }
  puts

  date.wday.times {
    print "    "
  }
  date.upto((date >> 1) - 1) { |d|
    print " " if d.day < 10
    print " " + d.day.to_s + " "
    if d.wday == 6
      puts
    end      
  }
  puts
  puts
end

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]