sub TS_Konvertierung {

my $TS_I_Date_Konvertierung  = substr( $Konvertierung_TS_I , length( $Konvertierung_TS_I ) - 24 , 17 );       # Separierung des Datums

print "$TS_I_Date_Konvertierung" , "\n";
$TS_I_Date_Konvertierung =~ s/,\d+//;

# ------------------------------------------------------------------------------------------------------------
		
my $TS_II_Date_Konvertierung  = substr( $Konvertierung_TS_II , length( $Konvertierung_TS_II ) - 24 , 17 );    # Separierung des Datums

print "$TS_II_Date_Konvertierung" , "\n";
$TS_II_Date_Konvertierung =~ s/,\d+//;

# ------------------------------------------------------------------------------------------------------------

my $t1 = Time::Piece->strptime( $TS_I_Date_Konvertierung, $DATEFORMAT );
my $t2 = Time::Piece->strptime( $TS_II_Date_Konvertierung, $DATEFORMAT );

if ( $t1 == $t2 ) 
   {
    $t1 += ONE_MINUTE;
    $t1 = $t1->strftime($DATEFORMAT);

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

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