Código de Perl - Obtener la fecha de ayer, mañana y cualquier otra

Imágen de perfil

Obtener la fecha de ayer, mañana y cualquier otragráfica de visualizaciones


Perl

Publicado el 29 de Septiembre del 2014 por Xavi
1.114 visualizaciones desde el 29 de Septiembre del 2014. Una media de 14 por semana
En este código de ejemplo, se muestra como obtener la fecha de ayer y mañana de la fecha actual, y la fecha de ayer y mañana de cualquier fecha.
Con el mismo método, se puede obtener la fecha de hace una semana, mes, etc...

Versión 1

Publicado el 29 de Septiembre del 2014gráfica de visualizaciones de la versión: Versión 1
1.115 visualizaciones desde el 29 de Septiembre del 2014. Una media de 14 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#!/usr/bin/perl
 
use strict;
use warnings;
 
use Time::Local;
use POSIX qw/strftime/;
 
# Obtenemos la fecha actual desglosada
my ($s, $min, $h, $d, $m, $y) = localtime();
 
my $time      = timelocal $s, $min, $h, $d, $m, $y;
my $today     = strftime "%d-%m-%Y", localtime $time;
my $ayer1     = strftime "%d-%m-%Y", $s, $min, $h, $d - 1, $m, $y;
my $manana1   = strftime "%d-%m-%Y", $s, $min, $h, $d + 1, $m, $y;
my $ayer2     = strftime "%d-%m-%Y", localtime $time - 24*60*60;
 
print "Fecha actual: $today\n";
print "Fecha de ayer restando un día a una fecha dada : $ayer1\n";
print "Fecha de ayer restando minutos a la fecha actual: $ayer2\n";
print "Fecha de mañana aumentando un día a una fecha dada : $manana1\n";
 
print "\n\n---------------------------------\n\n";
 
# Definimos una fecha cualquier
my ($s2, $min2, $h2, $d2, $m2, $y2) = (0,0,0,14,2,70);
 
my $fecha     = strftime "%d-%m-%Y", $s2, $min2, $h2, $d2, $m2, $y2;
 
print "Una fecha cualquiera: $fecha\n";
 
print "Fecha de ayer restando un día a una fecha dada: ";
print strftime "%d-%m-%Y", $s2, $min2, $h2, $d2 - 1, $m2, $y2;
 
print "\nFecha de mañana aumentando un día a una fecha dada: ";
print strftime "%d-%m-%Y", $s2, $min2, $h2, $d2 + 1, $m2, $y2;
 
print "\n";



Comentarios sobre la versión: Versión 1 (0)


No hay comentarios
 

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s2773