格林高丽日期与普通日期的互相转换脚本
发布时间:2020-12-15 21:10:12 所属栏目:大数据 来源:网络整理
导读:今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 #!/usr/bin/perl#Caution: The following program doesnot provide ANY WARRANTY for commercial usage.#The author will not be responsible for any
以下代码由PHP站长网 52php.cn收集自互联网 现在PHP站长网小编把它分享给大家,仅供参考 #!/usr/bin/perl #Caution: The following program doesnot provide ANY WARRANTY for commercial usage. #The author will not be responsible for any problems you encountered sub help{ print "Usage:n"; print "1. ./dateConvert year month dayn"; print " Example: 2012 7 31n"; print "2. ./dateConvert julianDayn"; print " Example: 2552332n"; } die &help if( not($#ARGV ==0 or $#ARGV==2)); if($#ARGV ==0) { @monthName = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/; @weekdayName = qw/Mon Tue Wed Thu Fri Sat Sun/; $dateNr =$ARGV[0]; $l = $dateNr + 68569; $n = int( ( 4 * $l ) / 146097 ); $l = int( $l - ( 146097 * $n + 3 ) / 4 ); $i = int( ( 4000 * ( $l + 1 ) ) / 1461001 ); $l = int( $l - int(( 1461 * $i ) / 4) + 31 ); $j = int( ( 80 * $l ) / 2447 ); $day = int( $l - int(( 2447 * $j ) / 80) ); $l = int( $j / 11 ); $month= int( $j + 2 - ( 12 * $l ) ); $year = 100 * ( $n - 49 ) + $i + $l; $dayOfWeek = $dateNr % 7; print "$weekdayName[$dayOfWeek]-$day-$monthName[$month-1]-$yearnn"; }else { $year =$ARGV[0]; $month=$ARGV[1]; $day =$ARGV[2]; $a =int( (14-$month)/12); $y =int( $year+4800-$a); $m =int( $month+12*$a-3); $JDN = $day + int(($m*153+2)/5) +365*$y + int($y/4) -int($y/100) + int($y/400)-32045; print "$JDN"; } 以上内容由PHP站长网【52php.cn】收集整理供大家参考研究 如果以上内容对您有帮助,欢迎收藏、点赞、推荐、分享。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |