Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
mirabelle
-----Message d'origine----- Bonjour à tous,
j'ai une base de données avec des employés et leur date de naissance. Je
voudrais créér une pyramide des ages. Comment dois-je m'y prendre??
salut
creer un module avec la fonction age
Function age(x) As Integer Dim y y = Year(Date) - Year(x) If DatePart("y", Date) > DatePart("y", x) Then y = y - 1 age = y End Function
Function tranche_age(x) Select Case x Case Is <= 20 tranche_age = "< ans" Case 21 To 29 tranche_age = "21 à 29 ans" Case 31 To 39 tranche_age = "30 à 39 ans " Case 40 To 49 tranche_age = "40 à 49 ans " Case Is >= 50 tranche_age = "Sup ou égal à 50" Case Else tranche_age = "XXXXX" End Select End Function
dans ta requete il faut demander les calcul suivants :
age: age([Date de naissance]) tranche: tranche_age([age])
et c'est parti bye Mirabelle
-----Message d'origine-----
Bonjour à tous,
j'ai une base de données avec des employés et leur date
de naissance. Je
voudrais créér une pyramide des ages. Comment dois-je
m'y prendre??
salut
creer un module avec la fonction age
Function age(x) As Integer
Dim y
y = Year(Date) - Year(x)
If DatePart("y", Date) > DatePart("y", x) Then y = y - 1
age = y
End Function
Function tranche_age(x)
Select Case x
Case Is <= 20
tranche_age = "<=20 ans"
Case 21 To 29
tranche_age = "21 à 29 ans"
Case 31 To 39
tranche_age = "30 à 39 ans "
Case 40 To 49
tranche_age = "40 à 49 ans "
Case Is >= 50
tranche_age = "Sup ou égal à 50"
Case Else
tranche_age = "XXXXX"
End Select
End Function
dans ta requete il faut demander les calcul suivants :
age: age([Date de naissance])
tranche: tranche_age([age])
j'ai une base de données avec des employés et leur date de naissance. Je
voudrais créér une pyramide des ages. Comment dois-je m'y prendre??
salut
creer un module avec la fonction age
Function age(x) As Integer Dim y y = Year(Date) - Year(x) If DatePart("y", Date) > DatePart("y", x) Then y = y - 1 age = y End Function
Function tranche_age(x) Select Case x Case Is <= 20 tranche_age = "< ans" Case 21 To 29 tranche_age = "21 à 29 ans" Case 31 To 39 tranche_age = "30 à 39 ans " Case 40 To 49 tranche_age = "40 à 49 ans " Case Is >= 50 tranche_age = "Sup ou égal à 50" Case Else tranche_age = "XXXXX" End Select End Function
dans ta requete il faut demander les calcul suivants :
age: age([Date de naissance]) tranche: tranche_age([age])
