Discussion :

[obelix1951]

bonjour
j'ai un soucis avec les dates
pour les differences entre 2 dates j'arrive à avoir soit des années soit des mois soit des jours , mais je n'arrive pas à avoir le resultat en "xx ans xx mois xx jours" malgré differents essais d'ecriture de la syntaxe et des recherches sur la faq et forums
merci pour une aide

[LE VIEUX]

bonjour,
pas connaissance d'une fonction existante, mais on peut la fabriquer,
j'ai fait quelques essais, cela semble marcher, à tester + s'il le faut.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function AnMoisJour2(DateDeb, DateFin)
    'nombre d'années
    NbA = DateDiff("yyyy", DateDeb, DateFin, 2, vbFirstFourDays)
    'nombre total de mois
 
    NbMT = DateDiff("m", DateDeb, DateFin, 2, vbFirstFourDays)
    'nombre mois moins années
    NbM = NbMT - (NbA * 12)
DernierDateM = DateAdd("m", NbMT, DateDeb)
    'Nombre de jours
    NbJ = DateDiff("d", DernierDateM, DateFin)
 
Debug.Print NbA & " Année(s) " & NbM; " Mois " & NbJ & " Jour(s)"
End Function

et comme on dit chez nous ;

Bon bout d'an....

[obelix1951]

bonjour,
pas connaissance d'une fonction existante, mais on peut la fabriquer,
j'ai fait quelques essais, cela semble marcher, à tester + s'il le faut.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function AnMoisJour2(DateDeb, DateFin)
    'nombre d'années
    NbA = DateDiff("yyyy", DateDeb, DateFin, 2, vbFirstFourDays)
    'nombre total de mois
 
    NbMT = DateDiff("m", DateDeb, DateFin, 2, vbFirstFourDays)
    'nombre mois moins années
    NbM = NbMT - (NbA * 12)
DernierDateM = DateAdd("m", NbMT, DateDeb)
    'Nombre de jours
    NbJ = DateDiff("d", DernierDateM, DateFin)
 
Debug.Print NbA & " Année(s) " & NbM; " Mois " & NbJ & " Jour(s)"
End Function

et comme on dit chez nous ;

Bon bout d'an....

bonjour merci beaucoup
je vais la tester d'ici ce soir
mais au fait , ce que je voudrais c'est que cette fonction fonctionne dans un champs calculé d'un formulaire afin d'aoir un affichage automatique
j'espere que ce n'est pas trop demander
merci encore une fois
et comme on dit chez vous Bon bout d'an
meilleurs voeux à toi et à tous les intervenants

[LE VIEUX]

re,
peut être comme ça

[obelix1951]

re,
peut être comme ça

merci bien
je vais tester
bien amicalement