# -----------------------------------------------------------------

#
# osternb: Butcher (1876), vgl Duffett-Smith (1989, 1979), v0.0 2014-10-21
#
#          gueltig Jahre > 1583 (greg)
# 
# Argument: Jahr
#

sub osternb( $ ){

    my $y = shift;

    my $a = $y % 19;
    my $b = int( $y / 100);                  # Jahr / 19 (int)
    my $c = $y % 100;                        # Jahr / 19 (Rest)
    my $d = int( $b / 4 );
    my $e = $b % 4;
    my $f = int( ($b + 8) / 25 );
    my $g = int( ($b - $f +1) / 3 );
    my $h = ( $a * 19 + $b - $d - $g + 15 ) % 30;
    my $i = int( $c / 4 );
    my $k = $c % 4;
    my $l = ( 32 + $e * 2 + $i * 2 - $h - $k ) % 7;
    my $m = int( ($a + $h * 11 + $l * 22) / 451 );
    my $n0 = $h + $l - $m * 7 + 114;
    my $n  = int( $n0 / 31 );
    my $p  = $n0 % 31;

return $n, ++$p;                             # Monat Tag   


}

# -----------------------------------------------------------------