mwultong Blog ... 프로그래밍 / 계산기

컴퓨터 엑셀 워드 포토샵 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Friday, April 27, 2007

Perl 펄] 이번 달은 몇 분기, 몇 사분기 구하기 함수; Quarter of the Year


1년을, 3개월씩, 4부분으로 구획지은 것을 "분기(사분기)"라고 합니다.

분기를 구하려면, 그 달(月)의 번호를 3으로 나눈 후, 그 값을 "올림"해 주면 됩니다. 반올림이 아니라 "올림"입니다.

이달, 특정 달이 몇 사분기? 계산 예제


파일명: example.pl
#!/usr/bin/perl
use strict; use warnings;

use POSIX qw( ceil ); # 올림 함수인 ceil 함수를 위해



  ############################################
  # 이번 달이 몇 분기인지 구하기
  #
  my $quarter = ceil(
                       ( (localtime)[4] + 1 ) / 3
                     );

  printf("%d분기\n", $quarter);
  # 이번 달이 4월이면 "2분기"라고 출력됨



  ############################################
  # 특정 달이 몇 분기인지 구하기
  #

  # 7월달은 몇 분기?
  printf("%d분기\n", quarterYear(7));
  # 3분기

  # 10월달은 몇 분기?
  printf("%d분기\n", quarterYear(10));
  # 4분기




# 특정 달을 입력하면,
# 그 달에 해당되는 분기가 반환되는 함수
# 참고로, $_[0] 이것은 함수의 첫번째 파라미터

sub quarterYear {
  return ceil( $_[0] / 3 );
}



▶▶ Perl/펄] 오늘 날짜/현재 시간 구하기 함수, 년월일/시분초; Get Print Date Time Current




tag: perl
Perl | 펄

0 Comments:

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Previous Posts
Monthly Archives
Top