Différence entre 2 dates : déterminer le nombre d'années, mois et jours

Version imprimable

02/05/2008, 10h11
daliok

Différence entre 2 dates : déterminer le nombre d'années, mois et jours
bonjour
j'ai besoin de connaitre le nbre des années,mois et jours entre deux dates données j'utilise actuellement la méthode suivante:
Code:

1 2 3 4 x :=trunc((d1-d2)/356) pour avoir le nbre des ans m := x*12 - months_between(d2,d1) pour avoir le nbre des mois d := trunc(mod(d1-d2,30)) pour avoir le nbre des jours
j'ai le pb avec months_between par exemple
months_between(to_date('01032005','ddmmyyyy'),to_date('31052008','ddmmyyyy'))
donne 2.9 alors qu'en principe j'ai exactement 3 mois avez vous une idée
et merci d'avance
02/05/2008, 10h52
McM

C'est pas terrible de faire des divisions par 356 (d'ailleurs c'est 365 ou 366).

Mieux vaudrait utiliser des calculs sur les années.
Pour le mois, le mois est complet entre le 01/03 00h00 et le 01/04 00h00
Donc c'est normal qu'entre le 01/03 0h00 et le 31/05 0h00, il n'y ait pas 3 mois complet.
Rajoute donc 1 jour (+1 à la date fin) pour le calcul des mois (et des jours aussi).
08/05/2008, 17h53
JerryMouse

Effectivement, Ajoute 1 à la date de fin.
Pour le nombre de jours

Code:

Trunc(D2-D1+1)

Pour le nombre de Mois

Code:

Trunc(Months_Between(D2+1,D1))

Pour le nombre d'années

Code:

Trunc(Months_Between(D2+1,D1)/12)
09/05/2008, 09h42
McM

C'est pas vraiment ça qu'il veut :
Il veut x années, y mois et z jours entre 2 dates,
Donc plutôt un modulo qu'un trunc mais je suis pas sur.

une petite fonction qui, je crois, vient d'ici même peut servir de point de départ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function Time_Diff (
                        LD$Date_Deb     IN DATE DEFAULT SYSDATE
	                    ,LD$Date_Fin    IN DATE DEFAULT SYSDATE
                   ) 
    Return Varchar2 
IS
	LN$JJ       PLS_INTEGER ;
	LN$HH       PLS_INTEGER ;
	LN$MI       PLS_INTEGER ;
    LN$SS       PLS_INTEGER ;
Begin
 
  If LD$Date_Fin < LD$Date_Deb Then
     Return Null ;
  End if ;
 
  Select  trunc ( LD$Date_Fin - LD$Date_Deb)  Into LN$JJ  From DUAL ;
  Select  trunc ( (LD$Date_Fin - LD$Date_Deb) * 24) -  ( LN$JJ * 24 ) Into LN$HH From DUAL ;
  Select  trunc ( (LD$Date_Fin - LD$Date_Deb) * 1440) - ( (LN$HH * 60) + ( LN$JJ * 1440) ) Into LN$MI From DUAL ;
  Select  trunc ( (LD$Date_Fin - LD$Date_Deb) * 86400) - ( (LN$MI * 60) + (LN$HH * 3600) + ( LN$JJ * 3600 * 24 ) ) Into LN$SS From DUAL ;
 
  Return( LN$JJ||' Jour(s), '||LN$HH||' Heure(s), '||LN$MI||' Minute(s), '||LN$SS||' Seconde(s)' ) ;
 
End Time_Diff ;

Voici un code qui peut aider:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
declare
  dat2 Date := sysdate;
  dat1 Date := to_date('01012000','DDMMYYYY');
  Jour Number;
  Nomb Number;
  Annee Number;
  Mois Number;
Begin
  Nomb := Months_Between(Dat2, Dat1);
  Annee := Trunc( Nomb/12);
  Mois := Trunc(Nomb-Annee*12);
  Jour := Trunc((Nomb - Trunc( Nomb))*30);
  Dbms_Output.Put_Line( ANNEE ||' an(s) '|| Mois ||' mois '||Jour||' jour(s).');
End;