TimeUtils

after_gregorian($year, $month, $date, gregorian_start => $YYYYMMDD ) #| #| Does the given date fall to period after Gregorian calendar? #| #| =head3 Positional Arguments #| #| #| =item1 year (astronomic, zero-based) #| #| =item1 month (1-12) #| #| =item1 date UTC date (1-31) with hours and minutes as decimal part #| #| #| =head3 Optional Named Arguments #| #| #| =item1 gregorian_start — start of Gregorian calendar. Default value is #| 15821004 If the date is Julian ("old style"), use undef value. #| To provide non-standard start of Gregorian calendar, provide a number #| in format YYYYMMDDD, e.g. 19180126 for Jan 26, 1918. #| #| #| =head3 Returns #| #| true or false. sub after_gregorian($y, $m, $d, :$gregorian_start) is export(:ALL) {

• year (astronomic, zero-based) #| #| =item1 month (1-12) #| #| =item1 date UTC date (1-31) with hours and minutes as decimal part #| #| =head3 Optional Named Arguments #| #| =item1 gregorian_start — start of Gregorian calendar. Default value is #| 15821004 If the date is Julian ("old style"), use undef value. #| To provide non-standard start of Gregorian calendar, provide a number #| in format YYYYMMDDD, e.g. 19180126 for Jan 26, 1918. #| #| =head3 Returns #| #| Standard Julian date sub cal2jd($ye, $mo, $da, :$gregorian_start) is export(:cal2jd) {