Microsoft 365 VBA: Extraction de la date dans Timestamp pour comparer

[VBA_dev_Anne_Marie]

Bonjour,

Je souhaite comparer les dates comme :

ev1.D_EFFET>='" & Ma_date & "'

mais la date ev1.D_EFFET est alimentée avec un timestamp :

et Ma_date est au format dd/mm/yyyyy.

Est-ce que vous connaissez une fonction vba pour avoir juste la date du timestamp ?

Merci beaucoup pour votre aide !

 

[Hasco]

Bonjour,

fonction vba

Pourquoi vba ?

Avec excel 365 vous avez d'autres moyens allant d'une simple fonction à power query en passant par une fonction lambda.

Mais pour vous aider efficacement, il nous faudrait un fichier contenant plusieurs de vos "TimeStamp" dans des mois différents

cordialement

 

[mapomme]

Bonjour @VBA_dev_Anne_Marie , @Hasco ,

Voir les formules en B2, C2, D2 et E2 à recopier verts le bas.

Dans les formules, le terme {"JAN"."FEV"."MAR"."AVR"."MAI"."JUN"."JUL"."AOU"."SEP"."OCT"."NOV"."DEC"} est à adapter en fonction de vos propres abréviations des mois.

 

[mapomme]

Re,

Sinon en VBA, une piste avec une fonction VBA utilisable en VBA ou dans une feuille de calcul.
La constante est à adapter selon vos propres abréviations des mois:

Function TexteEnDate(ByVal x As String)
Const moisTexte = "JAN FEV MAR AVR MAI JUN JUL AOU AOUT SEP OCT NOV DEC"
Dim res As Date, i&, m, t1

   m = Mid(x, 3, 3): t1 = Split(moisTexte)
   For i = 0 To UBound(t1)
      If t1(i) = m Then Exit For
   Next i
   If i = UBound(t1) + 1 Then GoTo ERREUR
   On Error GoTo ERREUR
   res = DateSerial(Mid(x, 6, 4), i + 1, Left(x, 2))
   res = res + TimeSerial(Mid(x, 11, 2), Mid(x, 14, 2), Mid(x, 17, 2))
   TexteEnDate = res
   Exit Function

ERREUR:
   TexteEnDate = CVErr(xlErrNA)
End Function