• Publicidad

Día de la semana

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

Día de la semana

Notapor Negrazo » 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.
Negrazo
Perlero nuevo
Perlero nuevo
 
Mensajes: 100
Registrado: 2006-12-28 12:51 @577
Ubicación: Guadalajara, Mexico

Publicidad

Re: Dia de la semana

Notapor netsoul » 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
  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. my ($diaSemana) = (localtime(time))[6];
  7.  
  8. my @dias = ('Domingo','Lunes','Martes','Miércoles', 'Jueves','Viernes','Sábado');
  9.  
  10. print "$dias[$diaSemana]\n";
Coloreado en 0.003 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
  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use warnings;
  5. use DateTime;
  6.  
  7. my $dt = DateTime->new(year   => 2009,
  8.                        month  => 8,
  9.                        day    => 26,
  10.                      );
  11.  
  12. my @dias = ('Domingo','Lunes','Martes','Miércoles', 'Jueves','Viernes','Sábado');
  13.  
  14. print "$dias[$dt->day_of_week]\n";
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
With Perl
Imagination is more important than knowledge. Albert Einstein.
netsoul
Perlero nuevo
Perlero nuevo
 
Mensajes: 150
Registrado: 2008-05-04 01:11 @091

Re: Día de la semana

Notapor explorer » 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
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use diagnostics;
  5.  
  6. use DateTime;
  7.  
  8. use open OUT => ':locale';       # Queremos los acentos propios de nuestra terminal
  9.  
  10. my $fecha  = DateTime->new(
  11.     year   =>    2009,
  12.     month  =>       8,
  13.     day    =>      26,
  14.     locale => 'es_ES',            # Los nombres de los días de nuestro país
  15. );
  16.  
  17. print $fecha->day_name(), "\n";  # miércoles
  18.  
  19. 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.
Última edición por explorer el 2009-08-27 04:16 @219, editado 3 veces en total
Razón: cada -> nuestro, actualización
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Día de la semana

Notapor netsoul » 2009-08-26 22:49 @992

¡Ja!. ¡Has dado en el blanco, Explorer! :P
With Perl
Imagination is more important than knowledge. Albert Einstein.
netsoul
Perlero nuevo
Perlero nuevo
 
Mensajes: 150
Registrado: 2008-05-04 01:11 @091

Re: Día de la semana

Notapor Negrazo » 2009-09-08 16:15 @719

Muy bien, explorer y netsoul.

Asunto resuelto.

Muchas gracias por los tips.

Negrazo.
Negrazo
Perlero nuevo
Perlero nuevo
 
Mensajes: 100
Registrado: 2006-12-28 12:51 @577
Ubicación: Guadalajara, Mexico


Volver a Intermedio

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 22 invitados