Discussion :

[devjcc]

Bonjour à tous,
On sait calculer le nombre de secondes écoulées depuis 1/1/70.
Quelqu'un connait-il la fonction qui permet de transformer ce nombre de secondes en date?
Merci d'avance

[2Eurocents]

On sait calculer le nombre de secondes écoulées depuis 1/1/70.
Quelqu'un connait-il la fonction qui permet de transformer ce nombre de secondes en date?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

($sec,$min,$heure,$mjour,$mois,$annee,$sjour,$ajour,$isdst) = gmtime(time);

Bon courage

[devjcc]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

($sec,$min,$heure,$mjour,$mois,$annee,$sjour,$ajour,$isdst) = gmtime(time);

Bon courage

Merci, mais ceci est valable pour la date en cours.
Là de dessus pas de problème.

Comment fait-on pour obtenir une date à partir de n'importe quelle variable 'seconde'. Ex: 1190292727 doit donner 2007-09-20. ?
Merci

[MarneusCalgarXP]

Utilisation du module Time::local:

http://perldoc.perl.org/Time/Local.html

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
use Time::Local 'timelocal_nocheck';
 
# the 10,000,000th second since 1970!
print scalar localtime timelocal_nocheck 10000000,0,0,1,0,70;

[2Eurocents]

Merci, mais ceci est valable pour la date en cours.
Là de dessus pas de problème.

Comment fait-on pour obtenir une date à partir de n'importe quelle variable 'seconde'. Ex: 1190292727 doit donner 2007-09-20. ?
Merci

Bah ... il suffit de remplacer "time" par 1190292727.

Attention, il faut ajouter 1900 à la variable $annee et 1 à la variable $mois pour que leurs valeurs soient exploitables.

La mise en forme finale est de ton ressort.


Sinon, il y a toutes les solutions passant par des modules, dont DateTime::Format::Epoch, par exemple ...

Bon courage.

[devjcc]

En fait, je viens de trouver la solution sans utiliser de lib supplémentaire.

Il suffit de recréer un tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

@date=gmtime($NombreDeSeconde);

et de faire l'extraction habituelle des éléments de date.

Merci

[MarneusCalgarXP]

ok, sinon Time::Local fait partie du Core, autrement dit il est installé d'office avec Perl, donc pas besoin d'installer quoi que ce soit