Differenz in Jahren zwischen zwei Datem ("Datums") (Allgemeines zu Perl)

[thread]18703[/thread]

Differenz in Jahren zwischen zwei Datem ("Datums")

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+6 replies

Gast Gast

2013-10-24 14:27

Hallo, ich habe zwei "Datums" und möchte herausfinden, ob dazwischen weniger als 4 Jahre liegen. Das sollte auf den Tag genau stimmen. Ich habe mir überlegt, dass ich Jahr, Monat und Tag bei beiden Daten zerlegen und jeweils das aktuelle vom alten abziehe. Z.B. 24122009 und 24102013,
2013-2009 = 4, 10 - 12 = -2, Also 4 Jahre - 2 Monate .. Wenn der Monat bei beiden gleich ist geht es mit den Tagen weiter. Das wären insgesamt fünf if Abfragen. Geht das noch einfacher?

LG
Last edited: 2013-10-24 15:24:24 +0200 (CEST)

bianca

2013-10-24 15:31

User since
2009-09-13
7016 Artikel
BenutzerIn

Benutz doch ein Datums Modul wie z.B. Date::Calc
10 print "Hallo"
20 goto 10

Muffi

2013-10-24 15:39

User since
2012-07-18
1465 Artikel
BenutzerIn
[default_avatar]

Code (perl): (dl )

use Class::Date 'date';

if (date($date1) - '4Y' < $date2) {
    ...
}

1 + 1 = 10

+3 replies

hlubenow

2013-10-24 18:43

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

Guest Gast
Hallo, ich habe zwei "Datums" und möchte herausfinden, ob dazwischen weniger als 4 Jahre liegen.

Die Frage ist, was ein Jahr ist: Da gibt's ja diese leidigen Schaltjahre ...

+2 replies

Gast Gast

2013-10-25 07:49

Guten Morgen! Danke für die Tipps. Ich probiere die Sachen gleich mal aus. Ich habe das mit dem Abziehen und Abfragen gestern so (vielleicht etwas umständlicher) gelöst. Scheint zu funktionieren.

Code (perl): (dl )

        use strict;
        use warnings;


        my $date_ok = "nicht ok";
                
        my $day_birth = "28";
        my $month_birth = "12";
        my $year_birth = "2009";

        my $day_p_date = "28";
        my $month_p_date = "11";
        my $year_p_date = "2013";


        if (($year_p_date-$year_birth) < 5) {
                
                 if (($year_p_date-$year_birth) < 4) { $date_ok = 1; }
                 else { 
                        if (($month_p_date - $month_birth) < 0) {  $date_ok = 2; }
                        else { 
                                if (($month_p_date - $month_birth) > 0) { $date_ok = "nicht ok .."; }                   
                                else { 
                                        if (($day_p_date-$day_birth) < 0)  {  $date_ok = 3; }
                                }       
                        }
                }
        }
        print $date_ok;

Last edited: 2013-10-25 07:57:17 +0200 (CEST)

Gast wer

2013-10-25 11:31

Code (perl): (dl )

use strict;
use warnings;

my $date_ok = 0;
                
my $day_birth = "28";
my $month_birth = "12";
my $year_birth = "2009";

my $day_p_date = "28";
my $month_p_date = "11";
my $year_p_date = "2013";

my $date_diff=sprintf('%04u%02u%02u',$year_p_date,$month_p_date,$day_p_date)-sprintf('%04u%02u%02u',$year_birth,$month_birth,$day_birth);
$date_ok=1 if($date_diff > sprintf('%04u%02u%02u',4,0,0) and $date_diff <= sprintf('%04u%02u%02u',5,0,0));

print "$date_ok\n";

Last edited: 2013-10-25 11:39:48 +0200 (CEST)

View all threads created 2013-10-24 14:27.