定休日の判定：第２第３水曜日を判定するには？

解決済

質問者：perlerz10
質問日時：2007/03/20 16:02
回答数：6件

入力された日時が定休日であるかを判定するルーチンを考えています。
毎週水曜定休だけであれば曜日判定だけですむのですが、定休日が「第２第３水曜日」という場合、どういった処理をすればよいでしょうか？

当月の定休日データを毎月「5/10/15」のように数値データとし更新してやれば、当月に関してはOKですが、来月の日時を入力された場合これでは営業日であっても定休日と判定してしまいます。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (6件)

ベストアンサー優先
最新から表示
回答順に表示

No.5ベストアンサー

回答者： tatsu99
回答日時：2007/03/20 21:20

#1です。

判定ルーチンのコード例です。
-----------------------------------
# 第２，３水曜日判定ルーチン
use Time::Local;
sub hantei
{
# 入力パラメータは P1,P2,P3
# P1:年（2000～）
# P2:月（1～12）
# P3:日（1～31）
my $nen = shift(@_);
my $tuki = shift(@_);
my $hi = shift(@_);
my $mday = $hi;
my $mon = $tuki - 1;
my $year = $nen - 1900;
# 曜日を求める為に timelocal->locatimeの変換を行う
my $ltime=timelocal(0,0,0,$mday,$mon,$year);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
= localtime($ltime);
# $wday が曜日(0～6=>日～土)（従って水曜日は$wday=3）
#水曜日でないなら
if ($wday != 3){
return 0;
}
#水曜日なら
# 1-7は第1週,8-13は第2週,14-21は第3週の水曜日になる
# $noが求める週
my $no = int(($hi-1)/7) + 1 ;
# 第２週又は第３週ならＯＫ
if ($no == 2 || $no == 3){
return 1;
}else{
return 0;
}
}

my $nen= 2007;
for (my $tuki = 1; $tuki < 13; $tuki++){
for (my $hi = 1; $hi<32; $hi++){
my $ret = &hantei($nen,$tuki,$hi);
if ($ret == 1){
printf("定休日です %04d/%02d/%02d\n",$nen,$tuki,$hi);
}
}
}
exit(0);
-----------------------------
sub hanteiが判定ルーチンです。第２、第３の水曜日なら１が返ります。
以外は０が返ります。
2007年の第２、第３の水曜日を求めています。

- 0
- 件

通報する

この回答へのお礼

ありがとうございます。
エディタでコードを書き出し各行をおっているところです。
皆さんからのご回答と合わせずいぶんと光が見えてきました。

ただ余計なことを思いついてしまい・・・。
それは、表題の「第２、第３の水曜日」チェックが完了しても、店舗によっては当月の定休日が「第２、第３の水曜日」であっても、翌月は「水曜日のみ」となったり、はたまた年末は「無休」だったりという定休日の変動が考えられ、結局は入力させる日時の期間（来月までなど）を制限するとともに、定休日の設定もそれにあわせて定期的に設定更新してやらなければならないのか・・・と。ううぅむぅ・・・。

通報する

お礼日時：2007/03/20 22:41

No.6

回答者： noocyte
回答日時：2007/03/20 22:51

> 「+=」って？というところでつまづいています。

「d += a」は，「d = d + a」のことです．
Perl にもある二項代入演算子ですよ．
http://www.kent-web.com/perl/chap2.html

- 0
- 件

通報する

この回答へのお礼

ありがとうございます。

通報する

お礼日時：2007/03/20 23:02

No.4

回答者： noocyte
回答日時：2007/03/20 20:34

●その月のｎ回目のｗ曜日の日付を求める方法

Perl は最近使ってなくて忘れかけているのでＣ風に書きます．

曜日番号を０(日曜)～６(土曜) とする．
その月の１日の曜日番号をw1とする．

その月のｎ回目のｗ曜日がｄ日であるとすると，
ｎ，ｗからｄを求めるには，

// d ← (最初のｗ曜日の日付)－１
d = w - w1;
if(d < 0) d += 7;

// d ← ｎ回目のｗ曜日の日付
d += 7 * (n - 1) + 1;