[VB 6.0] Difference entre deux dates

Comment puis-je calculer la différence entre deux date en année, mois et jour
la fonction 'Datediff' donne la difference en annee, mois ou jour et non pas les trois à la fois
par exemple la difference entre '01/01/2000' et '03/02/2002' est 1 ans,1 mois et 2 jours. comment le trouver.

Merci d'avance

3 réponses

  1. salam

    tu peux utiser excel comme http://xxl-leblog.svmlemag.fr/2005/03/nombre-de-jours.html
    ou le calcul mauel
    1. Merci Jaccques mais votre code ne donne pas une valeurs correte puisque d'abord DateDiff("yyyy",01/03/2000 ,01/01/2002) donne comme valeur 2 bien que la differance est 1 annee et 10 mois et d'autres part DateDiff("m" Date1, Date2) donne le nombre total de mois sans exclure le nombred'année.
      j'ai parvenue à ecrire une fonction en divaisant le nombrede jours par 365 pour obtenir lenombre d'année et par 30 pour avoir le nombre de moisce qui ne donne pas une valeurd exacte.
      Je veut une méthode qui aboutit à une valeure correcte 100%
      1. salut
        utiliser datepart
        chercher sur le site web vbfrance
        ccccccoooool............
        1. DatePart permet d'extraire le jour, le mois ou l'année d'une date de type "Date" et je ne voit pas comment je peut l'utuliser pour extraire les jours, les mois et les années à la fois de la différence entre deux dates
        2. Bonsoir,

          Je n'ai jamais trouvé de solution satisfaisante :
          J'ai dû me résoudre à décomposer les dates en effectuant des sous-calculs :
          1/qui compte le nombr d'années
          2/..... le nombre de mois
          3/..... etc
          sur le modèle :

          DateDiff("yyyy",[DateAchat],[DateVente]) & "années " & DateDiff("m",[DateAchat],[DateVente]) & "mois" AS délai

          Ça fonctione mais ce n'est pas joli.
          A refaire au propre si cela vous interesse

          Cordialement
          La science ne fait que trouver ce qui existe depuis toujors
          Hubert REEVES