Bonjour
J'ai des champs au format texte de la forme "2009/03/15". Quelles fonctions utiliser pour le transformer en type date et en extraire le numéro de la semaine et le numéro du mois ?
Merci
Bonjour
J'ai des champs au format texte de la forme "2009/03/15". Quelles fonctions utiliser pour le transformer en type date et en extraire le numéro de la semaine et le numéro du mois ?
Merci
Bonjour,
les fonctions à étudier sont :
IsDate()
CDate()
Month()
PartDate()
et un lien dans la pour aider un peu pour la dernière fonction
http://access.developpez.com/faq/?page=dates#InfoDate
Cycle de vie d'un bon programme :
1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise
Pas de question technique par MP, je ne réponds pas
Mes ouvrages :
Apprendre à programmer avec Access 2016, Access 2019 et 2021
Apprendre à programmer avec VBA Excel
Prise en main de Dynamics 365 Business Central
Pensez à consulter la FAQ Excel et la FAQ Access
Derniers tutos
Excel et les paramètres régionaux
Les fichiers Excel binaires : xlsb,
Autres tutos
Finalement c'est un peu plus compliqué : le champ de départ est au format "decimal" (il comprend des valeurs du style "20090315" pour le 15 mars 2009) faut-il le convertir au format string puis date ou y-a-t il une fonction pour le faire directement ?
Merci
en l'occurence tu dois passer par
- soit un bout de code
- soit par des manipulations dans ta requête
exemple :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Function RetourneDate(a As Double) As Date RetourneDate = Dateserial(cint(left(str(a),4)),cint(mid(str(a),5,2)),cint(right(str(a),2))) End Function
Cycle de vie d'un bon programme :
1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise
Pas de question technique par MP, je ne réponds pas
Mes ouvrages :
Apprendre à programmer avec Access 2016, Access 2019 et 2021
Apprendre à programmer avec VBA Excel
Prise en main de Dynamics 365 Business Central
Pensez à consulter la FAQ Excel et la FAQ Access
Derniers tutos
Excel et les paramètres régionaux
Les fichiers Excel binaires : xlsb,
Autres tutos
merci beaucoup
Je vois le principe, mais il y a une petite erreur : pour "20090314", çà me renvoie 14/06/207 !!
Je suis en train d'étudier çà mais comme tu es sûrement plus rapide que moi...
Finalement, non...
Il y avait juste un petit décalage dans le Left et le Mid
et çà marche parfaitement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Function RetourneDate(a As Double) As Date RetourneDate = DateSerial(CInt(Left(Str(a), 5)), CInt(Mid(Str(a), 6, 2)), CInt(Right(Str(a), 2))) End Function
Merci
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager