Discussion :

[burhud]

Bonjour à tous !

J'ai un problème que je n'arrive pas à résoudre :
J'ai une date, que je transforme en secondes depuis 1970. jusque la pas de problème.

Mais quand je fais le chemin inverse, il me rajoute 2h, comme si il faisait la translation GMT-> local.

Je ne comprend pas, et j'aimerais récupérer l'heure que je lui ai donné à la base.

J'utilise le package Date::Manip, mais les fonctions de DateTime me font le même résultat.

Avec Date::Manip :

Code :

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

1
2
3
4
5
 
my $secs = Date_SecsSince1970("06","11","2007","0","0","0");
print "$secs\n";
my $dateBis = &ParseDateString("epoch $secs");
print "$dateBis \n";

Avec DateTime :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
my $date = DateTime->new (year => "2007",
                                month => "06",
                                day => "11",
                                hour => 0,
                                minute => 0,
                                second => 0);
 
my $dateEnSecondes = $date->epoch;
print "--> $dateEnSecondes\n";

Quelqu'un peut m'aider ?

[Jedai]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
my $date = 
  DateTime->new (
    year => 2007,
    month => 6,
    day => 11,
    time_zone => 'local',
  );
 
my $dateEnSecondes = $date->epoch;
print "--> $dateEnSecondes\n";
my $sameDate = 
  DateTime->from_epoch( 
    epoch => $dateEnSecondes,
    time_zone => 'local',
  );

S'il n'arrive pas à trouver le fuseau horaire local, tu n'as qu'à mettre Europe/Paris ou la valeur adéquate pour toi.

--
Jedaï

[burhud]

Ok, en clair la valeur par défaut serait GMT.

Merci bien