ある日付から営業日をひいた日付の計算

質問

どなたか、任意の日付xから、n営業日前の日付yを簡単に求めるスクリプトご存知じゃないですか？

モジュールでも結構です。
Time:Localもつかって結構です。

休日は土・日で、祭日は無視して結構です。
アルゴリズムだけでも結構です。

金曜日から5営業日前だったら金曜ですが、3営業日前だと火曜日ですよね。
また数十日前となると、7で割って、それに2掛けて日数を足してそれを金曜日の日付からひいて。。。。と悩んでると、片頭痛が再発しそうです。

よろしくお願いします。

回答No.2

leaz024 · ベストアンサー

質問文にある変数、x, n, y を、それぞれ変数 $x, $n, $y として使用します。
また、$x, $y は、シリアル秒とします。

$w = (localtime($x))[6];
if ($n >= $w) {
　　$s = int(($n - $w) / 5) + 1;
　　$n += $s * 2;
}
$y = $x - $n * (60*60*24);

（多分）これで求まると思います。

■考え方
・n 営業日前、というのが、１回も土日をまたがなければ、$x から $n 日分のシリアル秒を引けばＯＫです。
・１回でも土日をまたぐのであれば、前週の金曜日まで（営業日で）戻り、そこから（週５日で）何週分あるかを求めます（$s）。その週数に土日の日数（２）をかけた値を $n に足せば、土日を含めて何日前かが求まります。

お礼

ありがとうございます。
すごいです。

考え方を読むと、ごもっとも、かつシンプル。
ほんとにありがとうございます
いただきます。