# -----------------------------------------------------------------------------
# sub          : i s t _ s c h a l t j a h r
# -----------------------------------------------------------------------------
# Autor        : CD
# Aufgabe      : Gibt an, ob das übergebene Jahr ein Schaltjahr ist.
# Parameter    : Jahr
# Rückgabewert : 0 oder 1
# -----------------------------------------------------------------------------
# 0.0.1 - 20.01.2003 - CD - Erstellt
# -----------------------------------------------------------------------------
sub ist_schaltjahr {
    my $j = shift;

    return 1 if $j%4==0 and ($j%100!=0 or $j%400==0);
    return 0;
} # sub ist_schaltjahr