Thread Formatierung eines Datumwertes aus der DB (42 answers)
Opened by PERLScripter at 2014-12-08 11:58

GwenDragon
 2014-12-08 13:45
#178696 #178696
User since
2005-01-17
14761 Artikel
Admin1
[Homepage]
user image
CPAN:Time::Piece kann das Addieren und Subtrahieren eines Datums einer Zeit.

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

#!/usr/bin/perl

use strict;
use warnings;

use Time::Piece;
use Time::Seconds;

my $DATEFORMAT
  = '%d.%m.%y %H:%M:%S';    # siehe http://www.unix.com/man-page/FreeBSD/3/strftime/

my $from = "05.12.14 12:00:44,050000";
$from =~ s/,\d+//;
my $to = "05.12.14 12:00:44,070425";
$to =~ s/,\d+//;

my $t1 = Time::Piece->strptime( $from, $DATEFORMAT );
my $t2 = Time::Piece->strptime( $to,   $DATEFORMAT );
if ( $t1 == $t2 ) {
    $t1 += ONE_MINUTE;
    $t1 = $t1->strftime($DATEFORMAT);

    $t2 -= ONE_MINUTE;
    $t2 = $t2->strftime($DATEFORMAT);
}

print $t1, "\n", $t2, "\n";

=comment

Ergibt:

05.12.14 12:01:44
05.12.14 11:59:44


Es gibt auch die Konstante ONE_DAY um einfach das Datum um einen Tag zu ändern.

Die beiden erstellten Zeitwerte $t1 und $t2 lassen sich mit den üblichen Operatoren addiren und subrahieren oder auch in Relation vergleichen.
Schau bitte mal die Doku auf https://metacpan.org/pod/Time::Piece#USAGE an.
Udn notfalls uns mit Fragen löchern. ;)
Last edited: 2014-12-08 16:39:19 +0100 (CET)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View full thread Formatierung eines Datumwertes aus der DB