view release on metacpan or  search on metacpan

lib/Date/Qreki-ja.pod  view on Meta::CPAN

=encoding UTF-8

=head1 名前

Date::Qreki - 新旧暦変換

=head1 書式

    
    use utf8;
    use Date::Qreki ':all';
    my @qreki = calc_kyureki (2017, 1, 31);
    print "Old calendar $qreki[0] $qreki[2] $qreki[3]\n";
    


はこういう出力を作る：

    Old calendar 2017 1 4


(この例はL<F<synopsis.pl>|https://api.metacpan.org/source/BKB/Date-Qreki-0.07/examples/synopsis.pl>としてディストロにある。)


=head1 バーション

当説明はDate::Qrekiの0.07バーションに応じる。当バーションはgitのTue Jan 31 12:11:14 2017 +0900のL<c07982b5dc1b3e61c395505faa297f717276a4e3|https://github.com/benkasminbullock/Date-Qreki/commit/c07982b5dc1b3e61c395505faa297f717...

=head1 解説

新暦を旧暦に変関する。

=head1 関数

=head2 calc_kyureki

	@kyureki = calc_kyureki ($year,$mon,$day);

新暦に対応する、旧暦を求める。

呼び出し時にセットする変数 引数$year、$mon、$day: 計算する日付

戻り値　kyureki : 答えの格納先（配列に答えをかえす）

=over

=item kyureki[0] : 旧暦年

=item kyureki[1] : 平月／閏月 flag .... 平月:0 閏月:1

=item kyureki[2] : 旧暦月

=item kyureki[3] : 旧暦日

=back

=head2 get_rokuyou

	$rokuyou = get_rokuyou ($year,$mon,$day);

六曜算出関数

引数：新暦年月日

戻値：0:大安 1:赤口 2:先勝 3:友引 4:先負 5:仏滅

=head2 rokuyou_unicode

    my $rokuyou = rokuyou_unicode (2017, 1, 30);

六曜を漢字として求める。

この関数は0.07バーションから。

=head2 check_24sekki

    my $sekki = check_24sekki ($year, $month, $day);

今日がL<２４節気|https://ja.wikipedia.org/wiki/%E4%BA%8C%E5%8D%81%E5%9B%9B%E7%AF%80%E6%B0%97>かどうか調べる