Addition von Geschäftstagen (Allgemeines zu Perl)

[thread]18452[/thread]

Addition von Geschäftstagen

Tags: perl5 Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+26 replies
tejste

2013-07-22 10:17
User since
2012-11-15
21 Artikel
BenutzerIn
Hallo Perl Community,

ist jemandem von Euch eine Funktion bekannt, mit der man Geschäftstage addieren kann analog der add Funktion (diese addiert normale Tage)
Code (perl): (dl )

1 2 3 4 5 6 7

use strict; use warnings; no warnings 'once'; use Date::Calc; use DateTime; my $onlyDate1= DateTime ->now( time_zone => 'Europe/Paris' )->add( days => 7);
Beispiel: heute ist 22 Juli, ich möchte gern errechnen welches Datum in 7 Geschäftstagen ist. Das ist der Mittwoch der 31. Juli. Mir reicht es aus, wenn die Funktion die Wochenenden kennt.

Wenn es geht (ich fürchte allerdings ich brauche noch das Kalendermodul) ohne ein zusätzliches Modul... nicht, das ich die Module nicht mag, aber ich muß den Perl Code in ein Exe umwandeln und jedes Modul macht die Exe Datei um 3-4 MB größer und was noch dazukommt die Umwandlung in die Exe Datei dauert jetzt schon 20 Minuten.

Hat jemand eine Idee.

Vielen Dank im Voraus.
Last edited: 2013-07-22 10:22:54 +0200 (CEST)
- +23 replies
- Gustl
  
  2013-07-22 10:55
  User since
  2011-01-27
  443 Artikel
  BenutzerIn
  Hallo,
  
  ich habe das mal so gelöst, geht aber bestimmt auch einfacher. :)
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
  
  use strict; use POSIX; print "Tag: ".get_time( get_add_day(time, 10) ); sub get_add_day{ my $start_time = shift; my $adddays = shift; foreach(1..$adddays){ $start_time += 24 * 60 * 60; # addiert einen Tag while(!is_week_day($start_time)){ # wenn der Tag kein Werktag ist -> addiere einen Tag $start_time += 24 * 60 * 60; } } return $start_time; } sub is_week_day{ my $Wochentag = (localtime(shift))[6]; if($Wochentag == 0 || $Wochentag == 6){ return 0; } return 1; } sub get_time{ return strftime "%d.%m.%Y %H:%M:%S", localtime(shift); }
  
  Hab dazu eine Aufgabe auf meiner Seite erstellt:
  http://trainyourprogrammer.de/perl-53-bei-addition...
  
  Gruß
  Last edited: 2013-07-22 11:20:38 +0200 (CEST)
  - tejste
    
    2013-07-22 11:04
    
    User since
    2012-11-15
    21 Artikel
    BenutzerIn
    
    hallo Gustl,
    das probier ich mal aus. Du bringst mich da auf einen neuen Gedanken :-)
    Gruß
  - +21 replies
  - Muffi
    
    2013-07-22 11:09
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Dieses Eigenbau-Sekundengeschubse funktioniert genau solange, bis es blöd auf irgendwas mit Schalt-... trifft.
    1 + 1 = 10
    - +20 replies
    - pq
      
      2013-07-22 12:01
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      in dem fall dürfte eher die zeitumstellung zweimal im jahr ein problem sein.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +19 replies
      - tejste
        
        2013-07-22 12:18
        
        User since
        2012-11-15
        21 Artikel
        BenutzerIn
        
        Du meist weil der eine Tag 23 Stunden hat und der andere 25? Guter Hinweis... besten Dank.
        Da das Programm tagsüber läuft, und nur der Tag aber nicht die Zeit interessant ist, sollte das eigentlich keine Rolle spielen (Nachts um eins oder um 23 Uhr ist der Tagesfehler wieder weg), aber ich muß mir das noch mal anschauen.
        
        +18 replies
        
        Gustl
        
        2013-07-22 12:36
        
        User since
        2011-01-27
        443 Artikel
        BenutzerIn
        
        Das hätte man noch erwähnen sollen, stimmt.
        
        Vielleicht hat ja wer noch eine bessere Lösung, mit Datetime eventuell.
        
        Wenn du die Feiertage in deinem Bundesland auch noch ausschließen willst, kannst du diese ja dann auch in der Sub is_week_day mit abfragen.
        
        +17 replies
        
        Linuxer
        
        2013-07-22 12:54
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Naja, Muffi's Pseudocode stellt doch eine recht gute Lösung dar.
        
        Muss man nur vom Pseudocode auf Perl-Code umstellen.
        DateTime liefert alles benötigte mit; und ob es ein Geschäftstag ist, kann man z.B. mittels der Methode wday() ermitteln...
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +16 replies
        
        Gustl
        
        2013-07-22 13:16
        
        User since
        2011-01-27
        443 Artikel
        BenutzerIn
        
        Dann ist es so wohl besser:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        use strict; use DateTime; use POSIX; my $SAMSTAG = 6; my $SONNTAG = 7; my $add_Geschaeftstage = 7; my $dt = DateTime->now( time_zone => 'Europe/Paris' ); while ($add_Geschaeftstage) { $dt->add( days => 1 ); $add_Geschaeftstage-- unless ( $dt->wday() == $SAMSTAG || $dt->wday() == $SONNTAG ); } print $dt->strftime( "%d.%m.%Y" );
        
        [EDIT] So in etwa Muffi?
        Last edited: 2013-07-22 13:31:35 +0200 (CEST)
        
        +2 replies
        
        Muffi
        
        2013-07-22 13:19
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Schaut doch ganz nett aus.
        Der Nachteil an meiner Lösung ist wohl, dass sie relativ langsam ist.
        Aber wenns performancetechnisch in Ordnung ist find ich die Lösung garnicht so schlecht.
        
        [EDIT] Achja, falls man den Code noch aufhübschen will:
        Ich find Perl so schön, weil mans gut so schreiben kann, dass mans fast wie Prosatext lesen kann. Das fehlt mir in Zeile 10
        Last edited: 2013-07-22 13:23:39 +0200 (CEST)
        1 + 1 = 10
        
        Gustl
        
        2013-07-22 13:21
        
        User since
        2011-01-27
        443 Artikel
        BenutzerIn
        
        Ja, gefällt mir auch besser :)
        
        +2 replies
        
        Linuxer
        
        2013-07-22 13:20
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Naja, fast.
        
        So wird $add_Geschaeftstage runtergezählt, wenn's kein Montag oder Sonntag ist.
        Wenn das im Geschäftsbereich so ist, dann ist das in Ordnung ;-)
        
        Siehe: http://search.cpan.org/perldoc?DateTime#$dt-%3Eday...
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        Gustl
        
        2013-07-22 13:22
        
        User since
        2011-01-27
        443 Artikel
        BenutzerIn
        
        Hab ich geändert. danke.
        
        Muffi
        
        2013-07-22 13:38
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Das ist jetzt persönliche Meinung, aber ich benutz normalerweise keine boolschen Verknüpfungen im unless.
        Ich würd
        
        Code (perl): (dl )
        
        $add_Geschaeftstage-- if ( $dt->wday() != $SAMSTAG and $dt->wday() != $SONNTAG );
        
        schreiben.
        
        Wenn man ~~ wenigstens im Nicht-Gaga-Kontext ohne warnings benutzen könnte wärs mit
        
        Code (perl): (dl )
        
        $add_Geschaeftstage-- if $dt->wday() ~~ [$MONTAG..$FREITAG];
        
        noch ein bisserl schöner
        1 + 1 = 10
        
        +10 replies
        
        Linuxer
        
        2013-07-22 13:46
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Oder man erweitert sich DateTime um entsprechende Methoden:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
        
        #! /usr/bin/perl use strict; use warnings; use DateTime; # Quick-Hacked: extend DateTime to set/check for business days { # default setting: 1-5 (Mo-Fr) are business days my %business_days; @business_days{1..5} = (1)x5; # Method to define business days sub DateTime::set_business_days { my $self = shift; %business_days = (); $business_days{$_} = 1 for @_; } # Method if given wday is a business day sub DateTime::is_business_day { my $self = shift; my $wday = $self->wday; return 1 if $business_days{$wday}; return 0; } } my $day1 = DateTime->now( time_zone => 'Europe/Berlin' ); $day1->set_business_days( 1 .. 5 ); my $add = 7; while ( $add ) { $day1->add( days => 1 ); my $wday = $day1->wday; $add-- if $day1->is_business_day; } print $day1->ymd, $/;
        
        Sicherlich wären noch ein paar Checks sinnvoll; Vorsicht ist auch bei den Namen für die Methoden geboten; die sollten keine bestehenden Methoden überschreiben; Sollte DateTime mal erweitert werden, kann sowas passieren.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        Gustl
        
        2013-07-22 14:52
        
        User since
        2011-01-27
        443 Artikel
        BenutzerIn
        
        Super.
        
        Ich habe alle drei Lösungen der Aufgabe bei Trainyourprogrammer hinzugefügt.
        
        http://trainyourprogrammer.de/perl-53-bei-addition...
        
        +7 replies
        
        tejste
        
        2013-07-22 15:45
        
        User since
        2012-11-15
        21 Artikel
        BenutzerIn
        
        Auch von mir: funktioniert SUPER !!
        
        Bei solchen Vorschlägen eurerseits merke ich, das ich noch viel zu lernen habe.
        
        Eine Sache: ich verstehe diesen Code nicht:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        sub DateTime::set_business_days { my $self = shift; %business_days = (); $business_days{$_} = 1 for @_; }
        
        @Linuxer: könntest Du mir einem Beispiel das kurz erklären.
        
        +6 replies
        
        Linuxer
        
        2013-07-22 16:09
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Auf die Schnelle:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        # definiere neue Routine/Methode im Namensraum DateTime sub DateTime::set_business_days { # uebernehme das Objekt, ueber das wir aufgerufen wurden (sogar ueberfluessig hier) my $self = shift; # setze den Hash der Geschaeftstage zurueck, damit keine Altlasten uebrig sind %business_days = (); # setze den Hash neu; fuer jedes gegebene Argument (die stehen in @_) wird im # Hash %business_days ein neues Schlüssel-Wert-Paar erzeugt; Nummer_Wochentag => 1 $business_days{$_} = 1 for @_; }
        
        Reicht das schon?
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +5 replies
        
        tejste
        
        2013-07-22 16:14
        
        User since
        2012-11-15
        21 Artikel
        BenutzerIn
        
        vielen Dank.
        Ich verstehe jetzt was Du machst, aber ich verstehe noch nicht, warum Du es so machst, aber das versuche ich jetzt selbst rauszubekommen.
        nochmals Danke.
        
        +4 replies
        
        GwenDragon
        
        2013-07-22 16:22
        
        User since
        2005-01-17
        14890 Artikel
        Admin1
        
        Was genau verstehst du nicht? Erläuter es doch bitte, damit dir geholfen werden kann.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        tejste
        
        2013-07-22 18:05
        
        User since
        2012-11-15
        21 Artikel
        BenutzerIn
        
        ist vielleicht besser.. :-)
        ich bekomme mein aktuelles Datum und rufe die set_business_days Funktion auf. Das
        
        Code (perl): (dl )
        
        my $self = shift;
        
        brauche ich nicht aber was passiert jetzt? Ich sollte doch erstmal wissen welcher Wochentag mein aktuelles Datum ist und dann kann ich diesem Wochentag eine Nummer zuordnen, aus dem oben definierten Hash. Ich verstehe nicht, warum ich die Geschäftstage zurücksetzen muss?
        Vielen Dank!
        
        +2 replies
        
        Linuxer
        
        2013-07-22 20:33
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Die set_business_days() wird aufgerufen, um die Geschäftstage zu setzen. In diesem Fall ist der Aufruf nicht wirklich notwendig, weil der Hash %business_days bereits mit den gleichen Werten schon vorbelegt ist.
        Aber der Aufruf sollte eher aufzeigen, wie man die Geschäftstage (neu) definieren/festlegen kann.
        
        Da mein Gedanke war, dass ganze als Methoden von DateTime zu implementieren, beginnen die beiden Methoden eben mit my $self = shift;. Auch wenn $self nicht verwendet wird, würde ich das so stehen lassen. Aus zwei Gründen:
        1. Beim Methodenaufruf wird das Objekt, für das die Methode aufgerufen wird, als erstes Argument übergeben. Durch die Zeile ist das erste Argument abgearbeitet und aus der Argumentliste entfernt und man kann sich den restlichen Argumenten zuwenden.
        2. Sollte die Methode später mal überarbeitet werden, ist das $self schon deklariert und definiert...
        
        Die Reihenfolge der Aufrufe resultiert daraus, dass ich erstmal ein neues DateTime-Objekt erzeuge, für das ich dann die Methoden aufrufen will. Mein erster Ansatz sah vor, dass ich die Geschäftstage pro erzeugten DateTime-Objekt definieren wollte.
        Also erst das Objekt mit DateTime->now( ... ) erzeugen und dann die Geschäftstage definieren.
        
        Da aber mein erster Versuch, die Daten ins DateTime-Objekt selber zu legen, fehlschlug, ist das nicht mehr ganz so klar und deutlich.
        Sorry. Also könnte man das auch einfach vom DateTime lösen; vielleicht wird es damit klarer?
        
        Die Funktionen sind im folgenden Beispiel von DateTime losgelöst; dafür muss das Ergebnis von $day1->wday nun als Argument an is_business_day() übergeben werden.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
        
        #! /usr/bin/perl use strict; use warnings; use DateTime; # functions to set/check for business days { # set defaults; 1-5 (Mo-Fr) are business days # see: http://search.cpan.org/perldoc?DateTime#$dt-%3Eday_of_week() # for information which number is which day of week my %business_day; @business_day{1..5} = (1)x5; # function to (re)set business days sub set_business_days { %business_day = (); $business_day($_} = 1 for @_; } # check if given day of week is a business day sub is_business_day { my $wday = shift; return 1 if $business_day{$wday}; return 0; } } # or 1..3 for a shorter week; using 1..5 here is redundant, as they are already predefined set_business_days( 1..5 ); my $day1 = DateTime->now( time_zone => 'Europe/Berlin' ); my $add = 7; while ( $add ) { $day1->add( days => 1 ); $add-- if is_business_day( $day1->wday ); } print $day1->ymd, $/;
        
        Last edited: 2013-07-22 20:35:09 +0200 (CEST)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        tejste
        
        2013-07-23 11:22
        
        User since
        2012-11-15
        21 Artikel
        BenutzerIn
        
        erst Mal vielen Dank, ich schaue mir das in Ruhe an.
        Gruß tejste
        
        Muffi
        
        2013-07-23 11:02
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ich programmier grad öfter mal in Delphi und da würd ich von DateTime erben.
        
        Code (pascal): (dl )
        
        1 2 3 4
        
        type TExtendedDateTime = class(TDateTime) public function bIsBusinessDay(): Boolean; end;
        
        In Perl wind ich mich immer irgendwie drum rum, weiss nicht genau warum. Wohl weil das mit den packages einfach nicht so hübsch gelöst ist.
        
        [EDIT] Es wär wohl schon angenehmer wenns sowas wie ein:
        local package Foo; gäb.
        Last edited: 2013-07-23 11:10:00 +0200 (CEST)
        1 + 1 = 10
- Muffi
  
  2013-07-22 11:23
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Nimm halt sowas (Pseudocode)
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $add_Geschaeftstage = 7; while ($add_Geschaeftstage) { $date += 1D; $add_Geschaeftstage-- if $date->is_geschaeftstag; }
  
  1 + 1 = 10
- Raubtier
  
  2013-07-22 21:50
  
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  
  Mit der Randbedingung, dass Geschäftstage immer Mo-Fr sind, d.h. in jeder Woche gleich viele, kann man die Addition von Tagen auch verkürzen, indem man nämlich zunächst mal schaut, wie viele ganze Wochen drin sind.
  
  Also: Anzahl int(Tage / 7) * Anzahl_Geschäftstage. Dann noch für die verbleibenden Tage % 7 die Tage addieren, sondern sie Geschäftstage sind.
  
  Bzw. umgekehrt: du teilst durch Anzahl_Geschäftstage, rundest ab, und nimmst mit 7 mal und machst dann die Restbehandlung. Sollte einiges an Zeit sparen, wenn viele Tage addiert werden sollen...
  
  Richtig korrekt wird es aber wohl nur, wenn man auch Feiertage berücksichtigt.

View all threads created 2013-07-22 10:17.