my ($year,$month,$day) = Add_Delta_Days($Jahr,$Monat,$Monatstag, -14);
my $minorday = $year.$month.$day;

print "$year,$month,$day";