[MYBBS] 返信


メニュー


返信フォーム

[1] 入力フォーム
前書き
  • [名前][コメント][削除パス]は、必須項目です。
  • 他サイトの物は、そのサイトで質問して下さい。特に挨拶等のない場合は、当サイトにソース毎を持ち込まれても、削除対象とさせて頂きます。
  • サポート依頼時は、状況を出来る限り詳細に説明して下さい。
*必須*
  • 内容が推測出来る様なタイトルにして下さい。
*必須* [Max.5120 Byte]
  • 長文は、自動折り返しされるため、出来る限り改行はご遠慮下さい。
  • 二回以上の改行は、段落扱いになります。
  • [new] 内容の薄い書込や、機種依存文字の濫用は、削除対象となりました。
  • 使用可能タグ ⇒ strong, em, blockquote, cite, q, sup, sub, dfn, code, samp, var, kbd, pre
[C] カラー(未設定)

*必須*
  • ※投稿ルールを守られない記事は、削除対象になります。
  • 投稿内容は、即座にメールで管理人の元へ届きます。

特定スレッド内リンク


特定スレッド表示


親タイトル
[1] Perl: 四半期取得
投稿者情報
  • PONTA
  • Mail
  • HP
  • 2004年07月23日(金) 00時22分
投稿内容

月から四半期を取得するPerlサブルーチン。思いついた3つの方法メモでした。

1.IF文を使用して四半期を求める
sub get_quarter() {
my $mon = shift; # 指定月
my $qrt; # 四半期
$qrt = 4 if 1 <= $mon && $mon <= 3;
$qrt = 1 if 4 <= $mon && $mon <= 6;
$qrt = 2 if 7 <= $mon && $mon <= 9;
$qrt = 3 if 10 <= $mon && $mon <= 12;
}

2.四半期を求める算術計算1
sub get_quarter() {
my $mon = shift; # 指定月
my $qrt; # 四半期
$qrt = (int(($mon + 8) / 3) % 4) + 1
}

3.四半期を求める算術計算2
sub get_quarter() {
my $mon = shift; # 指定月
my $qrt; # 四半期
$qrt = (int(($mon + 8) / 3) & 0x04) + 1
}

記事情報