Calculer le nombre de jours restants

Version imprimable

27/01/2006, 15h01
localhost

Calculer le nombre de jours restants

Bonjour,
Je rencontre un probléme d'imprécision lors d'affichage du nombre de jours restants, exemple :
Je dois calculer le nombre de jours qui séparent deux dates diférentes, prenons la date1=2005-12-12 et date2=2006-01-12 (les valeurs sont en time stamp) j'aurais la difference :
diff = date2 - date1
diff est exprimé en secondes, le probléme c'est de savoir comment convertir diff en nombre de jours (facile), mois (comment gerer les mois à 31,30,29 et 28), an (365jours + ou -) ?
Merci pour votre aide
27/01/2006, 16h20
xxiemeciel

Tu peux faire une approximation de 30 jours pour un mois puisque dans le cas suivant :

du 4 decembre 2005 au 18 janvier 2006 il y a 45 jours mais il n'existe aucun mois entre decembre et janvier. donc c'est environ 1 mois et 15 jours

Ou sinon gere un calendrier complet c'est le seul moyen que je vois pour etre parfaitement exacte a tout les coup. et au lieu de faire une difference tu pars de ta date de depart dans ton calendrier et tu comptes jusqu'a la date d'arrivee. (sur 365.25 jours par an ca fera peu d'iteration donc c'est acceptable)

XXiemeciel

si tu n'as pas de librairie adaptée j'ai cette fonction ancienne
en pascal préhistorique qui transforme un jour en nombre
avec lequel on peut effectuer des calculs

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
FUNCTION FACTJOUR(J,M,A:INTEGER):longint;
(*transforme une date en un nombre*)
VAR FACT:REAL;
      BEGIN
IF M IN[1,2] THEN
BEGIN
FACT:=(1.0*365*A)+1*J;
 FACT:=FACT+(1.0*(31*(M-1)));
 FACT:=FACT+(1.0*INT(((A-1)/4)));
FACT:=FACT-(1.0*INT(3/4*INT(((A-1)/100)+1)));
   END
ELSE
   BEGIN
FACT:=(1.0*365*A)+J;
FACT:=FACT+(1*(31*(M-1)));
FACT:=FACT+(1.0*INT((A/4)));
FACT:=FACT-INT(3/4*INT((A/100)+1));
FACT:=FACT-INT(((0.4*M)+2.3));
   END;
FACTJOUR:=round(FACT);
   END;