Bei Addition von Tage nur Werktage beachten

3 Lösungen

#53

Anfänger - Perl von Gustl - 22.07.2013 um 11:04 Uhr

Schreibe ein Programm welches die Anzahl der addierenden Tage abfrägt und dann das Datum ausgibt.
Bei der Addition der Tage sollen aber nur die Werktage (Geschäftstage): Montag, Dienstag, Mittwoch, Donnerstag und Freitag beachtet werden.

Beispiel: Heute ist der 22.07. (Montag), wenn ich nun 7 Tage eingebe soll der 31.07. (Mittwoch) ausgegeben werden.

Bitte melden Sie sich an um zur Aufgabenbeschreibung eine Frage zu stellen.

Frage stellen

Bitte melden Sie sich an um eine Lösung einzureichen.

Lösung einreichen

von Gustl (6560 Punkte) - 22.07.2013 um 13:18 Uhr

Perl-Code

use strict;
use DateTime;
use POSIX;

my $SAMSTAG = 6;
my $SONNTAG = 7; 

print "Wie viele Werktage sollen addiert werden (Startdatum Heute):\t";
my $add_Geschaeftstage = <STDIN>;
chomp $add_Geschaeftstage;

my $dt = DateTime->now( time_zone => 'Europe/Berlin' );

while ($add_Geschaeftstage) {
    $dt->add( days => 1 );
    $add_Geschaeftstage-- unless ( $dt->wday() == $SAMSTAG || $dt->wday() == $SONNTAG );
}
print "Tag ohne Wochenendtage: ".$dt->strftime( "%d.%m.%Y" );