Convertir nombre de jours en année, mois et jours Résolu

Question

salut tout le monde y'aurai t il quelqu'un qui pourrait me donner une fonction qui permet de convertir un nombre de jours en année,mois et jour.(Exp: 376 jours= 1an et 11 jours). en fait je voudrai calculer l'âge d'une personne (c'est à dire soustraction entre 2 date) .J'ai fait 
diff = DtR.Subtract(Me.CC._Dtt.Rows(i).Item(4))


mais j'aurai la diffèrence en nombre de jours c'est à dire âge=5376 jours au lieu de 14 ans et ......

cs_Exploreur · Accepted Answer

Salut,

Je ne sais pas s'il existe un fonction toute faite en .net mais déjà tu peux regarder cela : ici

En faite faut faire le contraire.....

A+
Exploreur

 Linux a un noyau, Windows un pépin

jmfmarques · Answer

S'il existe une chose qui ne peut être transformée en une autre, c'est bien le nombre de jours en années, mois et jours !

La notion d'année et de mois est en effet calandaire et pas linéaire. 

ainsi 28 jours peuvent faire un mois ici et 28 jours seulement là ...
31 jours peuvent faire un mois et 3 jours ou un mois (selon le cas de figure) !

jmfmarques · Answer

La notion d'âge (ou de durée) est autre chose et le calcul ne se fait pas à partir d'un nombre de jours, mais de deux dates (une de début et l'autre de fin).

mehdiyou · Answer

oui jmfmarques. le nombre de jours comme tu me l'as dit a été calcué à partir d'une diffèrence entre 2 dates (date Début et Date Fin) donc j'ai voulu convertir ce résultat en x année, y mois, z jours

jmfmarques · Answer

Et non !

C'est précisément ce qu'il faut éviter ! (calculer le nombre de jours puis tenter de convertir ...) ! Non !

Fais une recherche sur ce forum avec le mot âge ...

cs_christoni · Answer

Bonjour,
jmfmarques l'a fait pour des heures, minutes ...
Voici son code appliquer à ton problème et qui devrait fonctionner :

    Function ConvertisseurAnnMoisJour(ByVal maDureeJour As Integer) As Integer
        Dim nbAns As Integer
        Dim nbMois As Integer
        Dim nbJours As Integer

        '\, opérateur : Effectue la division de deux nombres et retourne le résultat sous forme d'entier.
        'Mod, opérateur (Visual Basic) : Effectue la division de deux nombres et retourne seulement le reste.
        nbAns = maDureeJour \ 365.25
        nbMois = (maDureeJour Mod 365.25) \ 30.4375
        nbJours = (maDureeJour Mod 365.25) Mod 30.4375

        'Pour tester, à adapter bien sûr.
        Return MsgBox(nbAns & " années " & nbMois & " mois " & nbJours & " jours ")
    End Function

5376 me donne 14 ans 8 mois et 19 jours, l'âge de ta personne.
Bonne continuation.

mehdiyou · Answer

Merci beauuuuuucoup christoni. c'est exactement ce que je cherchais. Merci

FouBasic · Answer

Hmmm ....
Suite de teste, c'est presque vrai, mais c'est plutot cela je crois qui est plus précis....


        nbAns = maDureeJour \ 365.25
        nbmois2 = Abs(nbAns - (maDureeJour / 365.25))
        nbMois = Int(nbmois2 * 12)
        nbJours = Int(Abs(nbMois - (nbmois2 * 12)) * 365.25)


        Resutldata = (nbAns & " années " & nbMois & " mois " & nbJours & " jours ")
        ConvertisseurAnnMoisJour = Resutldata

A vous de vérifier...

Elie

Convertir nombre de jours en année, mois et jours

8 réponses

Votre réponse

Discussions similaires