Comment calculer le nombre de mois séparant deux dates ?Résolu

Question

Bonjour,



j'aimerai savoir s'il existe un moyen de calculer le nombre de mois qui s&#233;pare deux dates.



j'ai

DateAcq, DateDebEx : string;

DateAcq := TxtDateAcq.text;

DateDebEx := TxtDateDebEx.text;

proratadeg := MonthsBetween(StrTodate(DateAcq), StrTodate(DateDebEx));



la fonction marche, mais le probl&#232;me est que j'aimerai calculer en mois et non pas en jour.

Par exemple, si j'ai 

DateAcq := 24/03/05;

DateDebEx := 01/01/06;



proratadeg est &#233;gal &#224; 9 alors que
je voudrais trouver 10 (c'est &#224; dire que le num&#233;ro du jour ne compte
pas, juste le mois et l'ann&#233;e).

WhiteHippo · Accepted Answer

Bonjour

Variables ajout&#233;es :

  AnneeAcq, MoisAcq, JourAcq : Word ;
  AnneeDebEx, MoisDebEx, JourDebEx: Word ;

Code :

  DecodeDate(StrTodate(DateAcq),AnneeAcq,MoisAcq,JourAcq);
  DecodeDate(StrTodate(DateDebEx),AnneeDebEx,MoisDebEx,JourDebEx);


  proratadeg := 12 * ( AnneeDebEx - AnneeAcq ) - MoisAcq + MoisDebEx ;

Cordialement.

japee · Answer

Simple, logique et efficace...

Excellent, ce code, WhiteHippo. 



Bonne prog'

WhiteHippo · Answer

Merci japee.

cs_Delphiprog · Answer

"proratadeg est &#233;gal &#224; 9 alors que je voudrais trouver 10"

Si l'on regarde l'exemple donn&#233;, l'&#233;cart est bien de neuf mois ...et 8 jours.
Entre ce que le fonction renvoie et ce que tu souhaites obtenir, il y discordance.

Le code propos&#233; par WhiteHippo est donc parfaitement adapt&#233; &#224; ce que tu recherches. Saluons sa proposition int&#233;ressante.


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Nefret · Answer

Merci beaucoup pour ton aide 
 WhiteHippo, ta proposition simple et compr&#233;hensible r&#232;gle mon probl&#232;me !

Comment calculer le nombre de mois séparant deux dates ?

5 réponses

Votre réponse

Discussions similaires