Calcul de durée entre deux dates.

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Calcul de durée entre deux dates.

Profil supprimé

Bonjour,

Je me suis cassé les dent une nuit pour finalement laisser tomber mais je viens vous poser la question !

Comment calculer la durée entre deux dates en [Années-jours-heures:minute:secondes.miliseconde] ?

A vous si ça vous amuse ou si j'ai un problème.

Publicité

x1fr

Ca va dépendre du langage utilisé, du format des dates, etc...

Par exemple en .net il y a le format datetime, tu peux soustraire 2 datetime entre eux, tu obtiens un timespan qui t'indique le nombre de jours, heures, etc...

Dans d'autres langages c'est plutot un timestamp, qui représente le nombre de secondes. Tu peux donc faire la différence entre 2 timestamp, et avec des divisions et des modulos calculer le nombre d'années, jours, etc...

---------------
Origin / PSN / Steam / Uplay : x1fr - bnet : Fab#2717

Profil supprimé

Ok merci pour ta réponse.

Ben comme d'hab, c'est avec Ada.

gilou

Modérateur
Modzilla

Elles sont après 1970 tes dates?
A+,

Message cité 1 fois

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Profil supprimé

gilou a écrit :

Elles sont après 1970 tes dates?
A+,

Non, techniquement, la limite inférieur c'est 1901-01-01 0.0 et la sup c'est 2399-12-31 86400.0 ou un truc dans le genre. c'est un Ada.Calendar.Time.

Message édité par Profil supprimé le 31-01-2013 à 17:23:41

x1fr

Je ne connais (toujours pas ) ada, mais d'après :

http://archive.adaic.com/standards [...] 09-06.html

Code :

function "-" (LEFT : TIME; RIGHT : TIME) return DURATION;

Tu peux effectuer une soustraction de 2 objets de type TIME, et obtenir un objet de type DURATION en retour.

Et d'apres http://www.adapower.com/rm95/RM-9-6.html :

Citation :

There is a predefined fixed point type named Duration, declared in the visible part of package Standard; a value of type Duration is used to represent the length of an interval of time, expressed in seconds

Donc la différence entre 2 TIME te donnerai le nombre de secondes qui sépare les 2.

A partir de là, tu convertis le nombre de secondes en années, mois, etc... (désolé y a pleins de convertisseurs sur le net mais je trouve pas une explication sur la méthode).

En gros si tu as par exemple 3500 secondes tu fais :
- pour les heures le résultat entier de 3750 / 3600 -> 1h, reste 150 secondes
- pour les minutes le résultat entier de 150 / 60 -> 2min, reste 30sec
- pour les secondes le reste -> 30 sec
Donc 3500sec = 1h2min5ec

3600 pour 60sec par minute * 60min par heure
60 pour 60sec par minute
donc tu fais pareil avec 86400 (60*60*24) pour les jours etc...

Message cité 1 fois

---------------
Origin / PSN / Steam / Uplay : x1fr - bnet : Fab#2717

Profil supprimé

x1fr a écrit :

Je ne connais (toujours pas ) ada, mais d'après :

http://archive.adaic.com/standards [...] 09-06.html

Code :

function "-" (LEFT : TIME; RIGHT : TIME) return DURATION;

Tu peux effectuer une soustraction de 2 objets de type TIME, et obtenir un objet de type DURATION en retour.

Et d'apres http://www.adapower.com/rm95/RM-9-6.html :

Citation :

Donc la différence entre 2 TIME te donnerai le nombre de secondes qui sépare les 2.

D'abord merci encore pour ta réponse.

Alors justement j'ai fait et refait des test et

Je ne peut pas calculer tous les intervalles.

Citation :

Ne peut calculer l'interval entre Time minimum et maximum.

Citation :

Ne peut calculer l'interval entre heure courante et maximum.

Par contre pour l'intervalle entre Time minimum et Clock ça passe.

Citation :

Elasped time : 3537106230.915097000

Mais jusqu'à quand ?

gilou

Modérateur
Modzilla

J'ai été jeter un oeil à gnat: package Ada.Calendar
Il y a
function Time_Of
(Year : Year_Number;
Month : Month_Number;
Day : Day_Number;
Seconds : Day_Duration := 0.0) return Time
qui va retourner un Time pour chacune de tes dates, et un
procedure Difference
(Left : Time;
Right : Time;
Days : out Long_Integer;
Seconds : out Duration;
Leap_Seconds : out Integer)
pour faire la différence entre les deux.

A+,

Message édité par gilou le 01-02-2013 à 03:43:58

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Profil supprimé

Oui J'ai découvert aussi la Difference hier.

Après pour compter les année, tout les quatre ans je supprime un jour de plus et c'est bon ?

Profil supprimé

J'ai testé un truc.

Code :

with Ada.Calendar;
use Ada.Calendar;
 
with Ada.Calendar.Arithmetic;
use Ada.Calendar.Arithmetic;
with Ada.Text_Io;
use Ada;
procedure Main2 is
 
   The_Years_Top   : Year_Number := 1901;
   The_Years_Bot   : Year_Number := 2399;
 
   Bi          : Natural            := 0;
 
   Years       : Natural            := 0;
   The_Days    : Day_Count          := 0;
   Seconds     : Duration           := 0.0;
   Leap_Second : Leap_Seconds_Count := 0;
begin
 
 
 
   Difference(Time_Of(The_Years_Bot, Month_Number'last, Day_Number'Last, 0.0),
              Time_Of(The_Years_Top, Month_Number'First, Day_Number'First, 0.0),
              The_Days,
              Seconds,
              Leap_Second);
 
   Years := Natural(The_Days / 365);
   Bi := (The_Years_Bot - The_Years_Top)/4;
   The_Days := The_Days - Day_Count((365 * Years)+bi);
 
 
   Text_Io.Put_Line("Elapsed years : " & Natural'Image(Years));
   Text_Io.Put_Line("Elapsed days : " & Day_Count'Image(The_Days));
   Text_Io.Put_Line("Elapsed Sec : " & Duration'Image(Seconds));
end Main2;

Résultat :

Citation :

Elapsed years : 499
Elapsed days : -4
Elapsed Sec : 0.000000000

Publicité

gilou

Modérateur
Modzilla

Citation :

Bi := (The_Years_Bot - The_Years_Top)/4;

C'est ce qui est faux (déjà tu comptes 2100, 2200 et 2300 dans le lot or ils ne sont pas bissextiles, et de plus, pour le dernier jour de trop, c'est probablement une histoire d'intervalles).

A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Profil supprimé

Merci Gilou,

J'ai modifié monde code comme ceci :

Code :

for I in The_Years_Top..The_Years_Bot loop
      if Leap_Year(I) then
         Bi := Bi + 1;
      end if;
   end loop;
 
   The_Days := The_Days - (Day_Count((365 * Years)+bi)-1);

Il me reste un décalage de 23 heures à élucider.

Avec ma date d'anniversaire à 43 ans de différence j'ai bien 43 ans 0 jour mais 82800.0 seconde de trop.

gilou

Modérateur
Modzilla

Citation :

(Day_Count((365 * Years)+bi)-1)

Il correspond à quoi ce -1?
A+,

Message cité 1 fois

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Profil supprimé

gilou a écrit :

Citation :

(Day_Count((365 * Years)+bi)-1)

Il correspond à quoi ce -1?
A+,

A rien, j'essayais un truc pour l'histoire d'intervalle

par l'anneau de l'ia

word master

Bonjour,

Je reviens ici pour avoir votre expertise.... J'ai fait à vue de nez...
Toujours pour calculer la durée entre deux date exprimé en Years months days houres minutes seconds et rest.

D'abord je compte les années, les mois et les jours :

Code :

Arithmetic.Difference (Date, Timer_Start, Days_total, Seconds_Total, Leap_seconds);          
Timer_Years := Natural(Float(Days_Total) / 365.25);
Days_Total := Days_Total - Day_Count(float(Timer_Years) * 365.25);
Timer_Months := Natural(((float(Days_Total) / Float(365.25)) / 30.0));
Days_Total := Days_Total - Day_Count(((Float(Timer_months) * Float(365.25)) * 30.0));
Timer_Days := Natural(Days_Total);

Reste à faire une image formaté des secondes restante pour le jour courant.

Code :

Formatting.Image(Seconds_Total, True)

C'est surtout au niveau arithmétique je je vais galérer si c'est pas bon.

---------------
Toute expression prend un sens spirituel qui nous influence dans notre quête de l'Homme.

rufo

Pas me confondre avec Lycos!

1) Faut que tu gères le nb de jours pour chaque mois (30 ou 31) ainsi que le cas des années bissextiles (février à 28 ou 29 jours).

2) faut que tu gères le pb de l'heure d'été et de l'heure d'hiver. En effet, suivant l'intervalle considéré, cette heure en plus ou en moins peut s'annuler. Du coup, faut pas considérer qu'une journée = 84400 secondes

Je t'invites à regarder le code de mon applis Astres (cf ma signature), en particulier la fonction getGraphicAxeXValuesStats() du fichier /Astres/Support/Stats/StatsLibrary.php

3) Si ton algo est basé sur un calcul de secondes écoulé uniquement, attention aux secondes intercalaires qui sont ajoutées certaines années en juin ou en décembre

Message cité 1 fois
Message édité par rufo le 19-01-2015 à 13:43:48

---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta

flawlessroll

Brave jump!

rufo a écrit :

2) faut que tu gères le pb de l'heure d'été et de l'heure d'hiver. En effet, suivant l'intervalle considéré, cette heure en plus ou en moins peut s'annuler. Du coup, faut pas considérer qu'une journée = 84400 secondes

Avant toute opération il faut convertir les dates entrées en temps universel (UTC) sinon c'est vite l'horreur oui. [:kermit]

Pour le reste s'il s'agit de calculs de dates à visée astronomique, je ne saurais trop lui conseiller d'utiliser le jour julien en interne. Ça se représente très bien en virgule fixe sur un entier ce qui élimine la plupart des pertes de précision.

Message édité par flawlessroll le 23-01-2015 à 16:14:27

rufo

Pas me confondre avec Lycos!

Attention : comme l'indique l'article que tu donnes en ligne, jour julien <> calendrier julien

Citation :

Le qualificatif julien est source d'ambigüités : les datations en jours juliens et les dates du calendrier julien n'ont aucun rapport et ne doivent pas être confondues.

flawlessroll

Brave jump!

Corrigé, merci ! Un abus de langage malheureux. :pt1cable:

par l'anneau de l'ia

word master

Bonjour,

Mon nouveau code :

Code :

procedure Difference_In_Years(Top_Date : in Time;
                                 Bot_Date : in Time;
                                 Years    : out Natural;
                                 Months   : out Natural;
                                 Days     : out Natural;
                                 Houres   : out Natural;
                                 Minutes  : out Natural;
                                 Second   : out Natural;
                                 Rest     : out Duration) is      
      
      function Is_Leap_Year (Year : Integer) return Boolean is
      begin
         return (Year rem 4 = 0) and ((Year rem 100 /= 0) or (Year rem 16 = 0));
      end Is_Leap_Year;
      
      pragma Inline (Is_Leap_Year);
      
      Days_Months_Count : constant array (Month_Number) of Day_Number := (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
      
      
      function Last_Days(Years , Months : in Natural) return Natural is         
      begin         
         if Months = 1 then
            return Days_Months_Count(12);
         elsif Months /= 3 then
            return Days_Months_Count(Months-1);
         end if;
         
         if Is_Leap_Year(Years) then
            return Days_Months_Count(2) + 1;
         else
            return Days_Months_Count(2);
         end if;
      end Last_Days;
 
      
      Top_Seconds : constant Day_Duration := Seconds(Top_Date);
      Bot_Seconds : constant Day_Duration := Seconds(Bot_Date);
      Top_Day     : constant Day_Number := Day(Top_Date);
      Bot_Day     : constant Day_Number := Day(Bot_Date);
      Top_Year    : constant Year_Number := Year(Top_Date);
      Bot_Year    : constant Year_Number := Year(Bot_Date);
      Top_Month   : constant Month_Number := Month(Top_Date);
      Bot_Month   : constant Month_Number := Month(Bot_Date);
      
      Years_Number  : Integer := 0;
      Months_Number : Integer := 0;
      Days_Number   : Integer := 0;            
      
      Total_Duration : Duration := Bot_Seconds - Top_Seconds;
   begin
      
      if Top_Date > Bot_Date then
         raise Constraint_Error;
      end if;
      
      Years    := 0;
      Months   := 0;
      Days     := 0;
      Houres   := 0;
      Minutes  := 0;
      Second   := 0;
      Rest     := 0.0;
      
      Years_Number := (Bot_Year - Top_Year - 1);
      
      Months_Number := Bot_Month;
      
      if (Bot_Month > Top_Month) or ((Bot_Month = Top_Month) and (Bot_Day >= Top_Day)) then         
 
         Years_Number := Years_Number + 1;
         
      else         
         Months_Number := Bot_Month + 12;
      end if;
      
      Months_Number := (Months_Number - Top_Month - 1);
      
      if Bot_Day >= Top_Day then
 
         Months_Number := Months_Number + 1;
         Days_Number := Bot_Day - Top_Day;
      else
         Days_Number := Last_Days (Bot_Year, Bot_Month) - Top_Day;
         if Days_Number < 0 then
            Days_Number := Days_Number + Bot_Day;
         end if;                  
      end if;
      Days := Days_Number;
      Months := Months_Number;
      Years := Years_Number;
      
      if Bot_Seconds >= Top_seconds then
         Total_Duration := (Bot_Seconds + Top_Seconds) - 86400.0;
     Days := Days + 1;
      else
         Total_Duration := (86400.0 - Top_Seconds) + (Bot_Seconds);
      end if;
      Formatting.Split(Total_Duration, Houres, Minutes, Second, Rest);         
   end Difference_In_Years;

Je me suis fait aider, et la je viens de corriger au moins un peu.
Mais j'ai peut-être introduit d'autre problème.

---------------
Toute expression prend un sens spirituel qui nous influence dans notre quête de l'Homme.

par l'anneau de l'ia

word master

Et peut-être, remplacer cette condition :

Code :

if Days_Number < 0 then

par

Code :

if Days_Number <= 0 then

---------------
Toute expression prend un sens spirituel qui nous influence dans notre quête de l'Homme.

par l'anneau de l'ia

word master

Je le recolle entièrement, j'ai apporté trois correction, une dans Last_Years, une à la comparaison ci dessus qui est avec 1 et days -1 en bas de code.

Code :

procedure Difference_In_Years(Top_Date : in Time;
                                 Bot_Date : in Time;
                                 Years    : out Natural;
                                 Months   : out Natural;
                                 Days     : out Natural;
                                 Houres   : out Natural;
                                 Minutes  : out Natural;
                                 Second   : out Natural;
                                 Rest     : out Duration) is      
      
      function Is_Leap_Year (Year : Integer) return Boolean is
      begin
         return (Year rem 4 = 0) and ((Year rem 100 /= 0) or (Year rem 16 = 0));
      end Is_Leap_Year;
      
      pragma Inline (Is_Leap_Year);
      
      Days_Months_Count : constant array (Month_Number) of Day_Number := (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
      
      
      function Last_Days(Years , Months : in Natural) return Natural is         
      begin         
         if Months = 1 then
            return Days_Months_Count(12);
         elsif Months /= 3 then
            return Days_Months_Count(Months-1);                  
         elsif Is_Leap_Year(Years) then
            return Days_Months_Count(2) + 1;
         else
            return Days_Months_Count(2);
         end if;
      end Last_Days;
 
      
      Top_Seconds : constant Day_Duration := Seconds(Top_Date);
      Bot_Seconds : constant Day_Duration := Seconds(Bot_Date);
      Top_Day     : constant Day_Number := Day(Top_Date);
      Bot_Day     : constant Day_Number := Day(Bot_Date);
      Top_Year    : constant Year_Number := Year(Top_Date);
      Bot_Year    : constant Year_Number := Year(Bot_Date);
      Top_Month   : constant Month_Number := Month(Top_Date);
      Bot_Month   : constant Month_Number := Month(Bot_Date);
      
      Years_Number  : Integer := 0;
      Months_Number : Integer := 0;
      Days_Number   : Integer := 0;            
      
      Total_Duration : Duration := Bot_Seconds - Top_Seconds;
   begin
      
      if Top_Date > Bot_Date then
         raise Constraint_Error;
      end if;
      
      Years    := 0;
      Months   := 0;
      Days     := 0;
      Houres   := 0;
      Minutes  := 0;
      Second   := 0;
      Rest     := 0.0;
      
      Years_Number := (Bot_Year - Top_Year - 1);
      
      Months_Number := Bot_Month;
      
      if (Bot_Month > Top_Month) or ((Bot_Month = Top_Month) and (Bot_Day >= Top_Day)) then         
 
         Years_Number := Years_Number + 1;
         
      else         
         Months_Number := Bot_Month + 12;
      end if;
      
      Months_Number := (Months_Number - Top_Month - 1);
      
      if Bot_Day >= Top_Day then
     
         Months_Number := Months_Number + 1;
         Days_Number := Bot_Day - Top_Day;
      else
         Days_Number := Last_Days (Bot_Year, Bot_Month) - Top_Day;
         if Days_Number <= 1 then
            Days_Number := Days_Number + Bot_Day;
         end if;                  
      end if;
      Days := Days_Number;
      Months := Months_Number;
      Years := Years_Number;
      
      if Bot_Seconds >= Top_seconds then
         Total_Duration := (Bot_Seconds + Top_Seconds) - 86400.0;
     Days := Days + 1;
      else
         Total_Duration := (86400.0 - Top_Seconds) + (Bot_Seconds);
     Days := Days - 1;
      end if;
      Formatting.Split(Total_Duration, Houres, Minutes, Second, Rest);         
   end Difference_In_Years;

Finalement c'est ça mon algo.

Code :

with Ada.Calendar.Formatting;
use Ada;
with Ada.Strings.Fixed;
use Ada.Strings;
 
package body Arch.Utils is
   
   function Integer_Image (Value : in Integer) return String is
   begin
      if Value < 0 then
     return 
       '-' & Integer'Image(Value)(Fixed.Index_Non_Blank(Integer'Image(Value)(2..Integer'Image(Value)'Last))..Integer'Image(Value)'Last);
      else
     return 
       Integer'Image(Value)(Fixed.Index_Non_Blank(Integer'Image(Value))..Integer'Image(Value)'Last);
      end if;
   end Integer_Image;
   
   
   function YMD_Elapsed_String(Years    : in Natural;
                               Months   : in Natural;
                               Days     : in Natural) return String is
   begin
      return Integer_Image(Years) &
        "y, " &
        Integer_Image(Months) &
        "m, " &
        Integer_Image(Days) &
        "d, ";        
   end YMD_Elapsed_String;
   
   
   
   procedure Difference_In_Years(Top_Date : in Time;
                                 Bot_Date : in Time;
                                 Years    : out Natural;
                                 Months   : out Natural;
                                 Days     : out Natural;
                                 Houres   : out Natural;
                                 Minutes  : out Natural;
                                 Second   : out Natural;
                                 Rest     : out Duration) is      
      
      function Is_Leap_Year (Year : Integer) return Boolean is
      begin
         return (Year rem 4 = 0) and ((Year rem 100 /= 0) or (Year rem 16 = 0));
      end Is_Leap_Year;
      
      pragma Inline (Is_Leap_Year);
      
      Days_Months_Count : constant array (Month_Number) of Day_Number := (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
      
      
      function Last_Days(Years , Months : in Natural) return Natural is         
      begin         
         if Months = 1 then
            return Days_Months_Count(12);
         elsif Months /= 3 then
            return Days_Months_Count(Months-1);
     elsif Is_Leap_Year(Years) then
            return Days_Months_Count(2) + 1;
         else
            return Days_Months_Count(2);
         end if;
      end Last_Days;
 
      
      Top_Seconds : constant Day_Duration := Seconds(Top_Date);
      Bot_Seconds : constant Day_Duration := Seconds(Bot_Date);
      Top_Day     : constant Day_Number := Day(Top_Date);
      Bot_Day     : constant Day_Number := Day(Bot_Date);
      Top_Year    : constant Year_Number := Year(Top_Date);
      Bot_Year    : constant Year_Number := Year(Bot_Date);
      Top_Month   : constant Month_Number := Month(Top_Date);
      Bot_Month   : constant Month_Number := Month(Bot_Date);
      
      Years_Number  : Integer := 0;
      Months_Number : Integer := 0;
      Days_Number   : Integer := 0;            
      
      Total_Duration : Duration := Bot_Seconds - Top_Seconds;
   begin
      
      if Top_Date > Bot_Date then
         raise Constraint_Error;
      end if;
      
      Years    := 0;
      Months   := 0;
      Days     := 0;
      Houres   := 0;
      Minutes  := 0;
      Second   := 0;
      Rest     := 0.0;
      
      Years_Number := (Bot_Year - Top_Year - 1);
      
      Months_Number := Bot_Month;
      
      if (Bot_Month > Top_Month) or ((Bot_Month = Top_Month) and (Bot_Day >= Top_Day)) then         
 
         Years_Number := Years_Number + 1;
         
      else         
         Months_Number := Bot_Month + 12;
      end if;
      
      Months_Number := (Months_Number - Top_Month - 1);
      
      if Bot_Day >= Top_Day then
 
         Months_Number := Months_Number + 1;
         Days_Number := Bot_Day - Top_Day;
      else
         Days_Number := Last_Days (Bot_Year, Bot_Month) - Top_Day;
         if Days_Number <= 1 then
            Days_Number := Days_Number + Bot_Day;
         end if;                  
      end if;
      Days := Days_Number;
      Months := Months_Number;
      Years := Years_Number;
      
      if Bot_Seconds >= Top_seconds then
         Total_Duration := (Bot_Seconds - Top_Seconds);
      else
         Total_Duration := (86400.0 - Top_Seconds) + Bot_Seconds;
         Days := Days - 1;
      end if;
      Formatting.Split(Total_Duration, Houres, Minutes, Second, Rest);         
   end Difference_In_Years;
 
end Arch.Utils;

Message édité par par l'anneau de l'ia le 31-05-2015 à 01:21:12

---------------
Toute expression prend un sens spirituel qui nous influence dans notre quête de l'Homme.

Publicité

FORUM HardWare.fr

Programmation

Divers

Calcul de durée entre deux dates.

Sujets relatifs
[RESOLU] Calcul d'une série	Calcul html avec wordpress
Calcul	[VBA]Calcul du nombre de lignes avec 3 conditions non numériques
Problème gestion des dates VBA	calcul de la convergence d'un RdN
Calculer la durée d'un pas selon le tempo et la signature rythmique	algo calcul de volume objet 3d
Calcul de la norme d'un vecteur généré de façon aléatoire en langage C	PHP : Calcul de moyenne par modalité
Plus de sujets relatifs à : Calcul de durée entre deux dates.

Page générée en 0.203 secondes