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 (534 códigos)
3.985 visualizaciones desde el 29 de Septiembre del 2014
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
3.987 visualizaciones desde el 29 de Septiembre del 2014
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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s2773