CALCUL DE L'AGE

Commentaire de io_ost le 20/07/2006 11:12:08

ça calcul l'âge !! j'avais pas promis la lune ^^ (niveau débutant) je suis sûr que ça peu servir à quelqu'un (moi ça m'aurais fais gagner du temps)

Commentaire de Bidou le 27/07/2006 20:57:25 administrateur CS

Je pense qu'un snippet sur codyx aurait suffit, m'enfin!

Commentaire de dvdstory le 28/07/2006 07:42:53

erreur, ta mis str3 a la place de str2 et j'ai rajouté la ligne de code pour afficher la résultat que t'avais mis dans code original pas dans le le post.

Protected Sub calculage()

        Dim str As String = "26/01/1977"
        Dim datetimenow = DateTime.Now
        Dim datedenaissance = CDate(str)
        Dim age As Integer
        Dim str2 As String

        age = CInt(Now.Year - datedenaissance.Year)
        str2 = " Age : " & age & " ans"
        If (datedenaissance.Month > Now.Month) Then

            age = age - 1
            str2 = " Age : " & age & " ans"
        End If
        If ((datedenaissance.Month = Now.Month) And (datedenaissance.Day > Now.Day)) Then

            age = age - 1
            str2 = " Age : " & age & " ans"
        End If

        Me.Label1.Text = " Age : " & age & " ans"   'Affiche dans un label  

    End Sub

Commentaire de olixelle le 28/07/2006 16:20:08

en plus simple:
_______________________________________________________________________________
    Protected Sub calcul_age()

        Dim datedenaissance = CDate(TbDn.Text)
        Dim age As Integer = DateDiff(DateInterval.Year, DateTime.Now, datedenaissance)

        Me.Label3.Text = " Age : " & age & " ans"

    End Sub
__________________________________________________________________________________

Commentaire de wan186 le 11/08/2006 15:59:54

Olixelle: Il y a un prob avec DateDiff: il ne tient pas compte du mois et du jour. Si on est en Octobre 2006 et que la date de naissance est Novembre 2000, alors il donne un age de 6 ans... au lieu de 5.
Donc vive IO_OST ;-)

Commentaire de avrillavigne1 le 02/10/2006 18:38:17

merci pour le code

Commentaire de nerazzurro01 le 12/04/2007 13:43:05

bonjour je chercher dont j 'ai besion
g deux champs de datime piker et je veux calculer la date diffence entre les deux mais ca marche
j'aimerai bien avoir code qui marche de votre part
c urgent
merci

Commentaire de Streptococcus le 27/06/2007 10:42:17

La solution de Renfiel est simple et efficace, mon seul problème avec elle, c'est que quand, ayant déclaré une fonction du type :
Public Function age(DateNaissance As Date) As Integer
    age = Int(DateDiff("d", DateNaissance, Date) / 365.25)
End Function
je passe en paramètre DateNaissance une date du type jj/mm/aaaa, j'obtiens systématiquement un age de 107 ans. En fait en passant la fonction au débugger, je m'aperçois qu'il transforme DateNaissance en une heure (00:00:00) donc à chaque fois il me calcule un age pour une date de naissance du 01/01/1900...
Est-ce que quelqu'un saurait comment résoudre ce facheux problème ?
Merci d'avance
Quentin

Commentaire de Streptococcus le 27/06/2007 11:40:40

Alors après investigations complémentaires, et ayant utilisé la fonction de deux manières différentes :
Quand je fait :
Dim mon_age As Integer
mon_age = age(08/09/1984)
Dans ce cas, vu que l'on est en 2007, j'obtient un age de 107, car dans la fonction, la date doit être transformée en 01/01/1900...je suis sous VB6, donc j'ai un mode débug un peu primaire qui permet néanmoins de voir la valeur des variables, et donc en mode pas à pas, quand je suis dans la fonction et que je passe ma souris sur la variable DateNaissance, je ne lis que 00:00:15 ou quelques chose dans le genre.

Par contre j'ai utilisé la fonction comme suit :
Dim un_age As Integer
un_age = age(rst(date_naissance)), où rst est le résultat d'une requête SQL d'un champ date.
Et là ça à l'air de marcher parfaitement.

Donc d'après ce que je comprend, la fonction telle qu'elle est écrite dans mon précédent post reconnait le format date de ma bdd (SmallDateTime sous SQL Server), par contre il ne reconnait pas un format rentré en dur du type jj/mm/aaaa...

J'aimerais juste comprendre pourquoi...mais bon, l'un dans l'autre, la fonction à l'air de marcher pour ce que je veux en faire, donc si ce que je viens de te raconter n'est absolument pas clair...batailles pas.

Merci en tout cas
Quentin

Commentaire de Streptococcus le 27/06/2007 12:05:03

Bravo et merci Renfield...tu as tout bon