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

Gast PERLScripter
 2014-12-09 15:14
#178742 #178742
Hallo Zusammen,

erstmal vielen Dank für die viele Hilfe & die GEduld, die ihr hattet.
Die Konvertierung läuft nun einwandfrei. Der endgültige Code war :

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use Time::Piece;
use Time::Seconds;

$Umwandlung_TS_I =~ s/,\d+//;
$Umwandlung_TS_II =~ s/,\d+//;

my $TS_I_Konvertierung = Time::Piece->strptime( $Umwandlung_TS_I, $DATEFORMAT );
my $TS_II_Konvertierung = Time::Piece->strptime( $Umwandlung_TS_II, $DATEFORMAT );

if ( $TS_I_Konvertierung == $TS_II_Konvertierung )
{
$TS_I_Konvertierung -= ONE_MINUTE;
$TS_I_Konvertierung = $TS_I_Konvertierung->strftime($DATEFORMAT);

$TS_II_Konvertierung += ONE_MINUTE;
$TS_II_Konvertierung = $TS_II_Konvertierung->strftime($DATEFORMAT);
}

print "\n";
print "Konvertierter TS I : $TS_I_Konvertierung", "\n";
print "Konvertierter TS II : $TS_II_Konvertierung", "\n";
print "\n";


Ich habe es mir schwerer gemacht, als es sein müsste.

Nun habe ich noch eine letzte Frage, wenn es erlaubt ist :-)
Und zwar zeigt das Ergebnis nun schön an :

TS aus DB - I : 05.12.14 12:01:04,000000
TS aus DB - II : 05.12.14 12:01:04,012835

Konvertierter TS I : 05.12.14 12:00:04
Konvertierter TS II : 05.12.14 12:02:04

Nun möchte ich dieses Ergebnis noch für weitere Zwecke
umwandeln, dass es nun anschließend aussieht :

20141205120004 20141205120204

Ich habe schon einiges ausprobiert, bekomme es aber nicht hin.
Eine einfache Entfernung von Punkt & Doppelpunkt mittels des Befehls
"=~ /(\d\d)\.(\d\d)\.(\d\d)/;" bzw. " =~ /(\d\d)\:(\d\d)\:(\d\d)/;"
funktioniert leider nicht.

Vielen Dank !

Viele Grüße
PERLScripter
Last edited: 2014-12-09 15:24:32 +0100 (CET)

View full thread Formatierung eines Datumwertes aus der DB