Ｐｅｒｌ/ＣＧＩで作っているカレンダーについて

質問

先日、祝日の設定方法を教えていただき、上手くいくようになりました。
しかし、また新たな問題点が出てきて、行詰ってしまったので、皆さんのお力を貸して下さい。

tableタグの入れ子を使って、表示は２ヶ月分のカレンダーを横に並べた状態で表示させているのですが、12月と次の年の1月の2ヶ月の場合、次の年の1月（右側）が外枠のみで日にちも内枠も表示されません。
他の組み合わせの表示は上手くいきます。

月初めの曜日計算が上手くいっていないのでしょうか？
下記の様に書いています。

# ツェラーの公式により月初めの曜日を算出する
my $m = $month;
my $y = $year;
if ($m < 3) { --$y; $m += 12; }
my $startDay = ($y+int($y/4) - int($y/100) + int($y/400) + int((13*$m+8)/5) + 1) % 7;

my $nm = $nmonth;
my $ny = $year;
my $nny = $ny;
if ($m < 3 || $m >= 12) { $nny+=1; }
if ($nm < 3) { --$ny; $nm+=12; }
my $nstartnDay = ($ny+int($ny/4) - int($ny/100) + int($ny/400) + int((13*$nm+8)/5) + 1) % 7;
if ($nm > 12) {
$nm -= 12;
}

分かりにくいかと思いますが、随時補足しますのでよろしくお願い致します。

回答No.2

noname#205944 · ベストアンサー

ちょっと変数名が入り組んでいるので　解読が難しいのですが(たぶん後で色々使うつもりだとは思いますけどね)
こういうのは、サブルーチンとして切り離してはどうでしょ
例えば、

sub startWeek {
my($year,$month) = @_;
my $day = 1;

if ($month == 1 || $month == 2) {
$yr = $year;
$yr--;
$mt = $month;
$mt += 12;
}
else {
$yr = $year;
$mt = $month;
}
return ($yr + int($yr/4) - int($yr/100) + int($yr/400) + int((13*$mt + 8)/5) + $day) %7;
}

my $left_startDay = startWeek('左側年','左側月');
my $right_startDay = startWeek('右側年','右側月');

そうすると、問題があるときには見つけやすくなりますよ

参考URL：

http://easycgi.xrea.jp/tips/perl/zeller.htm

お礼

edamsさん、どうもありがとうございました。
もう少し、ソースの整理と見直しをしてみます。
また、お聞きするかと思いますが、その際はよろしくお願い致します。

回答No.1

koutarou504

> my $nny = $ny;
この変数が遊んでいる様な感じがします。
というか、左が当月，右が翌月なのでしょうが
右の曜日算出での年の内容が当月の年の内容になっています。

> my $y = $year;

> my $ny = $year;

２行とも、代入元は同じであり、且つ更新されている様がなく、ともに曜日算出に用いられています。

他は、各変数の用途が不明の為、確認できませんでしたが
とりあえず以上まで。

補足：似ている変数名はミスの元です。
変数名もわかりやすくする事をお勧めします。
（というか、単にソースが読みにくかったという回答者側の都合というか・・・）

お礼

koutarou504さん、どうもありがとうございました。
もう少し、ソースの整理と見直しをしてみます。
また、お聞きするかと思いますが、その際はよろしくお願い致します。