• Publicidad

Días de una semana específica

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Días de una semana específica

Notapor Agus211 » 2009-08-31 14:35 @649

Hola, quería saber si alguno podría ayudarme a determinar, dada una semana del año (ej: 25), cuáles son los días que abarca la misma...

Por ejemplo: semana 36. Como resultado daría 31/08/2009 al 06/09/2009.

Saludos.
Gracias :).
Agus211
Perlero nuevo
Perlero nuevo
 
Mensajes: 1
Registrado: 2009-08-31 14:31 @646

Publicidad

Re: Días de una semana específica

Notapor explorer » 2009-08-31 15:45 @698

Bienvenido a los foros de Perl en Español, Agus211.

Puedes usar algún módulo especializado en manejo de fechas, como por ejemplo Date::Manip:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2. use Date::Manip;
  3.  
  4. my $anno    = 2009;
  5. my $semana  = sprintf "%02d", 36;  # Tenemos que asegurarnos que tiene dos dígitos
  6. my $formato = '%d/%m/%y';          # Formato de salida
  7.  
  8. my $fecha = ParseDateString($anno . "w" . $semana);   # Usamos el formato ISO-8601 YYYYwWW
  9.  
  10. print UnixDate($fecha,$formato);  # 31/08/09
  11.  
  12. $fecha = DateCalc($fecha,"+6days",\$err);  # Sumamos seis días
  13.  
  14. print UnixDate($fecha,$formato);  # 06/09/09
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

Falta por poner los controles de que la fecha ha sido correctamente interpretada, pero bueno, como ejemplo, vale.
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


Volver a Básico

¿Quién está conectado?

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