とあるエンジニアの闇歴史帳

コピペで使える便利Wiki ※現在構築中です。

ユーザ用ツール


perl:calendar_get_dayoftheweek

差分

このページの2つのバージョン間の差分を表示します。

この比較画面にリンクする

perl:calendar_get_dayoftheweek [2017/12/14 20:18]
perl:calendar_get_dayoftheweek [2020/06/23 14:10] (現在)
行 1: 行 1:
 +====== 指定日の曜日を求める(Date::Simple) - Perl ======
 +~~socialite~~
 +<note important>この記事は2006年10月11日に書かれたものです。</note>
 +
 +ある日付が何曜日が調べたいがどうすれば良いだろうか?
 +Date::Simpleモジュールの機能を利用し、簡単に調べることが出来る。
 +
 +以下のプログラムの実行には、Date::Simpleモジュールのインストールが必要となっている。
 +
 +===== サンプル =====
 +<code perl>
 +;#
 +;#指定日の曜日を取得する
 +;#
 +use Date::Simple;
 +
 +#-- 2006年10月5日は何曜日? --#
 +print getYoubi(2006, 10, 5);
 +
 +
 +#------------------------------------#
 +#曜日を求める
 +#------------------------------------#
 +sub getYoubi{
 +  my $yyyy = shift;
 +  my $mm = shift;
 +  my $dd = shift;
 +  my $date = Date::Simple::ymd($yyyy, $mm, $dd);
 +  my @list = ('日','月','火','水','木','金','土');
 +
 +  return( $list[$date->day_of_week] );
 +}
 +</code>
 +
 +===== 実行結果 =====
 +<code>
 +
 +</code>
 +
 +localtimeの戻り値でも曜日を求めることができる。もしもtime値が判明しているようなら、通常はそちらを利用した方が良いだろう。なお、localtimeの戻り値も曜日の順番を返すが、この順番とDate::Simpleの順番は全く同じである。
 +
 +===== 関連書籍 =====
 +{{amazon>jp:4797336803}}
 +<html><p style="clear:both"></p></html>
 +
 +{{amazon>jp:4798139815}}
 +<html><p style="clear:both"></p></html>
 +
 +{{amazon>jp:B00O8GIL62}}
 +<html><p style="clear:both"></p></html>
 +{{tag>CGI・Perl例文集 Perl カレンダー 日付 曜日}}
 +~~socialite~~
  

関連ページ