Discussion :

[Akre6]

Bonjour,
Dans un script, je dois tester si deux dates qui se suivent sont séparé d'un intervalle de 5 heures dans une boucle foreach. Les dates peuvent être aussi bien la même année ou non, le même mois ou non voir le même jour ou non.

J'ai déjà vu l'écart entre deux dates en jours avec Delta_Days:
http://perl.developpez.com/telecharg...tre-deux-dates

Puis j'ai vu d'autres scripts utilisant "subtract_datetime" avec hours ou minutes. Du coup je me demandais s'il existait un fonction qui serait capable de me sortir l'écart en heures comme le fait le "Delta_Days", ou je dois utiliser un Delta_Days suivi d'un "subtract_datetime" avec hours. En gros je cherche une sorte de "Delta_Hours"...

Désolé si ça déjà été posé, j'ai trouve souvent l'écart en jours.

[Akre6]

J'ai trouvé une solution avec Delta_DHMS. Il test entre deux dates s'il y a un jour (ou une heure, ou un an etc..) complet qui s'est passé. Donc ça aide pas mal, mais ça me sort toujours pas la différence entre dates en heures.

Du coup, à défaut c'est pas mal, je peux après tester si l'écart en jour, en mois et an sont tous égaux à 0. Puis après regarder l'écart en heure.

Et voici le code pour

Code :

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

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use strict;
use warnings;
use DateTime;
use Date::Calc qw(Delta_YMDHMS);
 
 
my($Dy, $Dmo,$Dd,$Dh,$Dm,$Ds) = Delta_YMDHMS(2001,1,5, 7,55,23, 2001,1,8, 7,20,32);
 
print "Ecart An: $Dy  Mois: $Dmo Jour: $Dd  Heure: $Dh Min:$Dm Sec:$Ds \n";

Sortie:

Code :

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

Ecart An: 0  Mois: 0 Jour: 2  Heure: 23 Min:25 Sec:9

[djibril]

C'est exactement ce qu'il faut faire

[Akre6]

Ok merci bien !
Je fais ça alors.