阳历换算干支纪年月日

生来自由

用Perl写的。从阳历换算成干支纪年月日。

例：

1. 
   
2. $ ./sexagenary.pl 2006/4/22
   
3. 2006 年 4 月 22 日 <==> 丙戌 年 壬辰 月 戊寅 日
   

复制代码

源码：

1. #!/usr/bin/perl
   
2. 
   
3. my $date = shift || die "Useage: \n  $0 yyyy/mm/dd\n";
   
4. my ($y, $m, $d) = split(/\//, $date);
   
5. die("Useage: \n  $0 yyyy/mm/dd\n")
   
6.   unless (defined($y) && defined($m) && defined($d));
   
7. 
   
8. my @gan = qw(甲 乙 丙 丁 戊 己 庚 辛 壬 癸);
   
9. my @zhi = qw(子 丑 寅 卯 辰 巳 午 未 申 酉 戌 亥);
   
10. 
    
11. my $yg, $yz, $mg, $mz, $dg, $dz;
    
12. $yg = ($y-4)%10;
    
13. $yz = ($y-4)%12;
    
14. 
    
15. my $mm;
    
16. if ($m == 1 || $m == 2) {$y--; $mm=$m+12;}
    
17. my $c = ($y-($y%100))/100;
    
18. my $yy = $y%100;
    
19. my $i=0;
    
20. if ($m%2 == 0) {$i=6;}
    
21. $dg = 4*$c + ($c-$c%4)/4 + 5*$yy + ($yy-$yy%4)/4 + (3*($mm+1)-3*($mm+1)%5)/5+$d-3;
    
22. $dz = 8*$c + ($c-$c%4)/4 + 5*$yy + ($yy-$yy%4)/4 + (3*($mm+1)-3*($mm+1)%5)/5+$d+7+$i;
    
23. $dg = $dg%10-1;
    
24. $dz = $dz%12-1;
    
25. 
    
26. $mg = (($yg%5+1)*2)%10+($m+10)%12;
    
27. $mz = $m%12;
    
28. 
    
29. print("$y 年 $m 月 $d 日 <==> $gan[$yg]$zhi[$yz] 年 $gan[$mg]$zhi[$mz] 月 $gan[$dg]$zhi[$dz] 日\n");
    
30. 
    
31. exit 0;
    

复制代码

计划改一下xfce的datetime plugin，使之显示农历，先用Perl试写，然后用C。可惜农历算法较复杂，还在学习中。这里干支年和月也是近似算的。真希望当年小学或中学数学课能教教历法。

pointer

生来自由：
   能告诉我那儿能找到这些资料吗？
   谢谢。

生来自由

google上搜索“干支纪年”就有很多材料。
个人参考是维基百科的“干支”条目（http://zh.wikipedia.org/wiki/%E5%B9%B2%E6%94%AF%E7%BA%AA%E5%B9%B4）。