Discussion :

[Axe_Débutant]

Bonjour à tous, et meilleurs voeux pour cette nouvelle année. Qu'elle vous soit riche en développements productifs

En tant que débutant, je viens vers vous car j'ai un problème de conversion de chaîne texte en format date. Ca fait 3 jours que je m'arrache les cheveux, et je préfère vous soumettre mon problème tant qu'il m'en reste.

J'ai une table de données de population (comportant environ 260 000 enregistrements) avec une date de naissance pour chaque individu, éclatée dans 3 champs distincts : JR pour jour, MS pour mois, et AN pour année de naissance.

Dans le champ NAIS (en type calculé), j'ai concaténé les 3 champs précédents à l'aide de l'expression : [Q2JR] & [Q2MS] & [Q2AN], et j'obtiens donc des dates de naissance de la forme jjmmaaaa. Mais je ne crois pas que l'on puisse effectuer des calculs de date sur un champ de ce type.

Donc, dans le champ NAISS (de type texte), j'ai recopié les données du champ NAIS à l'aide d'une requête action (UPDATE...), mais j'aimerais en modifier le format afin de pouvoir faire des calculs, du genre : nombre d'individus de moins de 14 ans, ou population née avant 1990, etc...

J'ai parcouru le forum en long et en large, et je ne suis pas parvenu à adapter les solutions que j'y ai trouvées, comme les fonctions CDate et Format.

J'ai créé un champ (Champ57) de type Date, mais j'obtiens un message d'erreur d'incompatibilité de type.

Je ne sais plus quoi faire , please help me.

Par avance, merci infiniment.

[ClaudeLELOUP]

Bonne année à toi,


Si tu veux connaître tout (ou presque) sur les dates, vois : http://mhubiche.developpez.com/vba/f...ions/datetime/

Et pour ton cas précis, la fonction DateSerial() est celle qui s'impose.

[jimbolion]

Axe_Débutant bonsoir

ou créer une fonction prête à l'emploi (alternative à la solution de Claude)

Code :

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

1
2
3
4
5
Function transforme_date(jour As Byte, mois As Byte, annee As Integer) As Date
    On Error Resume Next
    madate = jour & "/" & mois & "/" & annee
    transforme_date = Format(madate, "yyyy/mm/dd")
End Function

si la date n'est pas cohérente elle te renverra 00:00:00

exemple d'utilisation :

Code :

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

1
2
3
4
5
6
Function testdate()
 ' renvoie la date de naissance pour une personne née le 2 octobre 1982
 Dim DateNaissance As Date
 DateNaissance = transforme_date(2, 10, 1982)
 MsgBox DateNaissance
End Function

jimbolion

[Axe_Débutant]

Bonsoir Claude et Jimbolion,

Merci pour vos promptes réponses.

J'ai pu grâce à la requête :

Code :

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

1
2
UPDATE T_POP SET T_POP.NAISS = DateSerial([T_POP]![Q2AN],[T_POP]![Q2MS],[T_POP]![Q2JR])
WHERE ((([T_POP]![Q2NAISS]) Is Not Null));

Puis, j'ai modifié tout simplement le type de champ (en mode création) de la table en "Date/Heure".

Mes calculs sur les dates fonctionnent impeccablement maintenant.

Merci encore.