Datumsabstand berechnen (gelöst) - #162202 (Allgemeines zu Perl)

geloescht

2012-09-29 18:08

User since
2012-06-19
141 Artikel
BenutzerIn
[default_avatar]

Hallo die Damen ;-)

Diese Seite hat mir schon pq verlinkt. Aba datt geht so net!

Nein ohne Scherz. Mein Ubuntu kennt kein get apt usw... bzw. das geht nur, wenn die Ubuntulibs das bereitstellt. Und da ich altes System, hab ich auch eine magere Library...

Nichts desto Trotz: jetzt geht alles! Habe es mit dieversen Testdaten geprüft!

Die kniffelige Stelle noch zum Zeigen:

Code (perl): (dl )

my ($year,$month,$day) = Today();
my ($year,$month,$day) = Add_Delta_Days($year,$month,$day, -14);

if ($month eq "1") {$month = "01";}
if ($month eq "2") {$month = "02";}
if ($month eq "3") {$month = "03";}
if ($month eq "4") {$month = "04";}
if ($month eq "5") {$month = "05";}
if ($month eq "6") {$month = "06";}
if ($month eq "7") {$month = "07";}
if ($month eq "8") {$month = "08";}
if ($month eq "9") {$month = "09";}

if ($day eq "1") {$day = "01";}
if ($day eq "2") {$day = "02";}
if ($day eq "3") {$day = "03";}
if ($day eq "4") {$day = "04";}
if ($day eq "5") {$day = "05";}
if ($day eq "6") {$day = "06";}
if ($day eq "7") {$day = "07";}
if ($day eq "8") {$day = "08";}
if ($day eq "9") {$day = "09";}

my $minorday = $year.$month.$day;

Damit hab ich den einstelligen Werten den Garaus gemacht! *hehe*
Der Witz ist nämlich, dass "Date::Calc" die einstelligen Werte zum Rechnen braucht. Ich aber einstellige Werte weder in der Ausgabe, noch in der DB gebrauchen kann. Aber ich habe es, zusammen mit eurer Hilfe, hinbekommen.

Nebenbei hab ich gelernt, die einzelnen Unterfunktionen von "Date::Calc" zu nutzen. Auf dieser Seite ist ne Beschreibung:

DateCalkManual

Grüsse HP-User
Last edited: 2012-09-29 18:11:33 +0200 (CEST)

Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?