Conversion de date

Bonjour je travaille avec JDE E1 et les dates extraites sont sous le format CYYDDD

. C = Century

. YY =annee,

Par exemple 119 = 2019; 118 = 2018, je n'ai pas d'autres siecles que 1, ca commence à 2000

. DDD = nombre du jour depuis le début de l'année. 012 = 12 janvier par ex, et 032 ser le 1er fev.

Je n'arrive pas a convertir DDD en MMDD

Quelqu'un aurit une solution ?

Merci !!

Bonjour Dannab, bonjour le forum,

Si la valeur se trouve en A1, essaie comme ça :

Sub Macro1()
Dim V As Long 'déclare la variable V (Valeur)
Dim S As Long 'déclare la variable S (Siècle)
Dim A As Long 'déclare la variable A (Année)
Dim D As Date 'déclare la variable D (Date)

V = CLng(Range("A1").Value) 'définit la variable V
S = IIf(Left(V, 1) = 1, 2000, 2000 + 100 * Left(V, 1)) 'définit le siècle S
A = S + Mid(V, 2, 2) 'définit l'année A
D = DateSerial(A, 1, Mid(V, 4)) 'définit la date D
End Sub

Merci, mais c'est du VBA... est-ce que'une formule excel pourrait faire la même chose ?

Merci !

Bonjour,

Tu peux mettre le contenu d'une cellule est la correspondance de date à trouver en exemple ?

exemple 12 janvier 2019 en CYYDDD çà affiche quoi ?

si çà s'écrit 119012 comme je le pense alors : en admettant que l'info soit dans la cellule A3 --->

=DATE((STXT(A3;1;1)+1)*1000+(STXT(A3;2;2));1;1)+(STXT(A3;4;3)-1)