[HP作成支援][No.852] Perl: 四半期取得


メニュー


特定スレッド内リンク


特定スレッド表示


親タイトル
[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
}

記事情報