Calculer l'âge à partir de la date de naissance

Version imprimable

17/06/2013, 10h36
kamalGLM

Calculer l'âge à partir de la date de naissance

bonjour j'ai une table des personnels composée de :

matricule
nom
fonction
date naissance

Je veux savoir comment filtrer par âge , tout en sachant que j'ai 30 enregistrement

Exemple :

Liste des personnes // âge :

M. X // entre 20 et 30 ans
Mme Y // > ou = 31 ans

Merci pour votre retour.

Cordialement,
17/06/2013, 10h56
charouel

Tu peux peut utilisé

Code:

DateDiff(DateInterval.Year, CDate(SecondDate1), CDate(firstDate1))
17/06/2013, 11h32
kamalGLM

Citation:

Envoyé par charouel

Tu peux peut utilisé

Code:

DateDiff(DateInterval.Year, CDate(SecondDate1), CDate(firstDate1))

ifirstDate1=now.date
SecondDate1= DateTimePicker1
tu peux m'expliquer comment faire ça
merci
17/06/2013, 11h43
charouel

voila ce lien
17/06/2013, 11h58
kamalGLM

Citation:

Envoyé par charouel

voila ce lien

j'ai pas compris
17/06/2013, 12h15
Sankasssss

Bonjour,

pouvez-vous être plus explicite.

Montrez ce que vous avez essayé, ce qui ne fonctionne pas et ce que vous ne comprenez pas s'il vous plait.

1 pièce(s) jointe(s)

bonjour, regarder ce lien :http://fr.hugon.ws/articles/dot-net/...-de-naissance/

si vous comprenez pas regarder mes codes.
voici mes codes:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = CalculateAge(TextBox1.Text)
    End Sub
    Public Shared Function CalculateAge(ByVal birthdate As DateTime) As Integer
        Dim years As Integer = DateTime.Now.Year - birthdate.Year
        If (DateTime.Now.Month < birthdate.Month Or (DateTime.Now.Month = birthdate.Month And DateTime.Now.Day < birthdate.Day)) Then
            years = years - 1
        End If
        Return years
    End Function
End Class

voici en image:

18/06/2013, 10h48
charouel

ça doit fonctionner ce code la. ça ne fonctionne pas ?
18/06/2013, 10h57
hacker59

bonjour, charouel

vous avez donnez des codes un peu compliquer, j'ai pas teste vos codes. mais avez autre solution plus simple que j'ai donner.

salutation.

Le plus simple restant :

Code:

1
2
 Dim age As integer 
age = Math.Round((Now.ToString("yyyyMMdd") - DateTimePicker1.Value.ToString("yyyyMMdd")) / 10000)

21/03/2015, 20h37
kamalGLM

Aide moi

aide moi svp
21/03/2015, 21h22
clementmarcotte

Citation:

Envoyé par kamalGLM

aide moi svp

:f1:

TimeSpan, structure

TimeSpan.Subtract, méthode

DateTime, structure

DateTime.Subtract, méthode (DateTime)

Code:

1
2
3
4
5
6
 Dim birthday As String = "12/4/78"
        Dim date1 As DateTime = Convert.ToDateTime(birthday)
        Dim age As Integer
        Dim ndiff As New TimeSpan
        ndiff = Date.Now.Subtract(date1)
        age = ndiff.Days \ 365

la bon reponce

Code:

1
2
3
4
5
6
7
8
9
10
Dim ad As String
            ad = TextBox1.Text
            Dim str As String = "SELECT * FROM (SELECT [code_perso],[Societe],[titre]  ,[nom]  ,[prenom]  ,[nom_complet]  ,datediff(YY,[date_naissance],GETDATE()) as AGE      FROM [G_personnel].[dbo].[PERSONNEL]) as Table2 WHERE AGE <'" & ad & "' "
            req = New SqlCommand(str, con2)
            con2.Open()
            Dim dr As SqlDataReader = req.ExecuteReader
            'While dr.Read
            Dim t As New DataTable
            t.Load(dr)
            DataGridView1.DataSource = t

24/03/2015, 10h10
Kropernic

A priori, avec ce code, on fait plus ou moins ce qu'on veut sur ta DB.

Y a plus qu'à prier pour le DBA l'aie bien sécurisée...