Discussion :

[Invité]

Bonjour,

Je débute et je souhaite convertir les données de mes deux champs en format date type DD/MM/YYYY puis pouvoir calculer l'écart de jour entre les deux dates.
Après plusieurs essais... rien de concluant...
Merci pour votre aide

[User]

Bonsoir,

Il vous faut créer une fonction dans un, module indépendant que vous appelez dans votre requête :

Code VBA :

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

1
2
3
4
Public Function extraire_date(s As String) As Date
    t = Split(s, "-") ' créer un tableau à 3 éléments
    extraire_date = DateSerial(t(0), t(1), Left(t(2), 2))
End Function

L'argument, c'est le champ contenant la date sous forme de texte :

LaDate : extraire_date([lechamp])

Cdlt,

[hyperion13]

Salut
Via une requête

Code :

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

DifferenceDate: CDate(Gauche([segment1#etd];10))-CDate(Gauche([Champ1];10))

[Invité]

Merci beaucoup pour votre réponse.
Je suis débutant et n'ai jamais utilisé de VBA mais je vais tenter votre solution.
Merci beaucoup !

[Invité]

Salut
Via une requête

Code :

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

DifferenceDate: CDate(Gauche([segment1#etd];10))-CDate(Gauche([Champ1];10))

Merci Hyperion.
Puis-je remettre les dates en DD/MM/YYYY ?
Je te remercie

[Invité]

Merci Hyperion.
Puis-je remettre les dates en DD/MM/YYYY ?
Je te remercie

J'ai compris désolé

[User]

Hyperion t'a donné la solution, exemple :

date1 : CDate(Gauche([segment1#etd];10))

Cdlt,

[Invité]

Oui désolé je n'avais pas compris.
Merci à vous deux !