Foro - Perl en Español

Publicado: **2009-08-26 13:37 @609**

Hola Perleros.

En un reporte de Ventas por Día, me gustaría incluir, aparte de la fecha y el importe de las Ventas, qué día de la semana le toca a cada fecha.
Ejemplos:

26-ago-2009 $23,450.00 Miercoles
25-ago-2009 $19,230.00 Martes
24-ago-2009 $26,050.00 Lunes

El problema es ¿cómo obtengo cada día de la semana, para cada fecha de ventas?

Cualquier ayuda es bienvenida.
Gracias de antemano.

Publicado: **2009-08-26 15:02 @668**

Hola.

Si quieres obtener el día de la semana desde la hora del sistema, este código puede ayudarte. Lo saqué del segundo tutorial de Kidd sobre despliegue de fechas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use warnings;
 
my ($diaSemana) = (localtime(time))[6];
 
my @dias = ('Domingo','Lunes','Martes','Miércoles', 'Jueves','Viernes','Sábado');
 
print "$dias[$diaSemana]\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Si quieres obtenerlo de forma manual, este código también puede ayudarte. Lo saqué de aquí:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use warnings;
use DateTime;
 
my $dt = DateTime->new(year   => 2009,
                       month  => 8,
                       day    => 26,
                     );
 
my @dias = ('Domingo','Lunes','Martes','Miércoles', 'Jueves','Viernes','Sábado');
 
print "$dias[$dt->day_of_week]\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Publicado: **2009-08-26 16:50 @743**

El uso de DateTime es siempre recomendable... y aprender a usarlo mucho más...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use DateTime;
 
use open OUT => ':locale';       # Queremos los acentos propios de nuestra terminal
 
my $fecha  = DateTime->new(
    year   =>    2009,
    month  =>       8,
    day    =>      26,
    locale => 'es_ES',            # Los nombres de los días de nuestro país
);
 
print $fecha->day_name(), "\n";  # miércoles
 
print $fecha->day_abbr(), "\n";  # mié
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Actualización: Fijarse que los nombres del día, tanto completo como abreviado, salen en minúsculas, porque en Español, son una excepción a la regla de las mayúsculas:

6.1. Los nombres de los días de la semana, de los meses y de las estaciones del año: lunes, abril, verano. Solo se escriben con mayúscula cuando forman parte de fechas históricas, festividades o nombres propios: Primero de Mayo, Primavera de Praga, Viernes Santo, Hospital Doce de Octubre.

Publicado: **2009-08-26 22:49 @992**

¡Ja!. ¡Has dado en el blanco, Explorer!

Publicado: **2009-09-08 16:15 @719**

Muy bien, explorer y netsoul.

Asunto resuelto.

Muchas gracias por los tips.

Negrazo.

Foro - Perl en Español

Día de la semana

Día de la semana

Re: Dia de la semana

Re: Día de la semana

Re: Día de la semana

Re: Día de la semana