Foro - Perl en Español

por **seafree** » 2022-02-21 15:56 @706

¿Qué tal? Tengo una tabla con un campo TIMESTAMP y en ella estoy cambiando registros con horario AM y PM a formato 24 horas, estilo militar:

fecha | character(26) la fecha la importo en campo tipoi char
Ya importado los registros convierto el campo fecha a timestamp
fecha_24 | timestamp without time zone

Todo estaba funcionando bien hasta ahorita que necesito actualizar registros y no me lo permite, la tabla cuenta con los siguientes campos,

fecha | character(26) ------------> Es una fecha tipo carácter con AM Y PM "ORIGEN"
valor | numeric(6,2)
fecha_24 | [b]timestamp without time zone [/b]-> En éste campo guardo la fecha cambiada a 24 horas

Dí por hecho que se estaban realizando todas las conversiones hasta que surgió una excepción:
UPDATE t_mediciones set fecha_24='2021/01/01 24:05:11' WHERE subestacion= 'EDO ' and fecha like '01/01/2021 12:05:11 p.m.%' and valor=-218.54

Potgresql envía el siguiente mensaje:

ERROR: date/time field value out of range: "2021/01/01 24:05:11"
LINE 1: UPDATE t_mediciones set fecha_24='2021/01/01 24:05:11' WHERE.

Espero seas tan amable de brindar su ayuda porque no doy con la razón.

Respetos
seafree

$sql_trae_fecha = "SELECT subest,trim(fecha),fecha_24,valor from t_mediciones WHERE subest=\'EDO\' and fecha_24 is null";
$sth->execute();
.
.
while (my @row=$sth->fetchrow_array){
      ($sub,$dato,$f_24,$valor)=@row;
        print "<b>ZONA:</b> $sub - <b>FECHA:</b> $dato - <b> FECHA_24:</b> $f_24<b>VALOR: </b>$valor <br><br>";
        # RESULTADO: ZONA: EDO - FECHA: 01/01/2021 12:05:11 p.m. - FECHA_24: VALOR: -218.54
        # ASIGNACIÓN A UN ARRAY
        # Aplica la operación que hay a la derecha a la cadena de caracteres que está almacenada en $dato
        # La operación es de búsqueda (match "m")
        # Búsqueda independiente si está en mayúsculas o minúsculas = i
        # Guarda lo que coincida con el patrón que está dentro de ellos
        my @fecha = $dato =~ m{(\d+)/(\d+)/(\d+) (\d+):(\d+):(\d+) ([ap])[.]m[.]}i;
        print "ARR_FECHA:  @fecha <br>";
        # RESULTADO: ARR_FECHA: 01 01 2021 12 05 11 p
        $fecha[3] += 12*(lc($fecha[-1]) eq "p");
        print "FECHA3: $fecha[3]<br>";
        # RESULTADO: FECHA3: 24
        printf @fecha[2,1,0,3,4,5];
        #printf "Resultado: %04d/%02d/%02d %02d:%02d:%02d\n", @fecha[2,1,0,3,4,5];
        my $fecha_cambiada = sprintf "%04d/%02d/%02d %02d:%02d:%02d", @fecha[2,1,0,3,4,5];
        print "FECHA_CAMBIADA: $fecha_cambiada";
        # RESULTADO: FECHA CAMBIADA: 2021 01 01 24 05 11
        exit;
        ....
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El problema es que se está leyendo el siguiente campo fecha: 01/01/2021 12:05:11 p.m. y se está considerando como si fuera media noche pero no es así, se hace referencia al MEDIO DÍA.

¿QUÉ PASA EN ESTOS CASOS?

En específico, el problema existe en la existencia de registros con fecha y hora de la siguiente manera:

1) 01/01/2021 12:04:36 a.m.
2) 01/01/2021 12:05:11 p.m.

Para el caso 1, debe permanece tal cual
Para el caso 2, en lugar de generar una suma sería un resta porque tiempo de 24 Horas. Inicia en 0, por lo tanto el horario debe ser 00:05:11, ¿correcto?

Respetos
seafree

por **explorer** » 2022-02-22 12:56 @580

Después de la línea 17, pon esta otra, para obligar a que los valores de hora estén en el rango [0..23]:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        $fecha[3] %= 24;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De hecho, sólo es necesario hacerlo en una ocasión, que es a las 12 de la noche, así que también se puede poner así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        $fecha[3] = 0  if $fecha[3] == 24;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **seafree** » 2022-02-22 14:29 @645

Enormes gracias, explorer.

Respetos.
seafree

Foro - Perl en Español

Horario de AM/PM a formato 24 horas

Horario de AM/PM a formato 24 horas

Publicidad

Re: HORARIO T

Re: HORARIO T

Re: HORARIO T

Re: Horario de AM/PM a formato 24 horas

¿Quién está conectado?