Discussion :

[gbbtt]

Bonjour,

J'ai dans des fichiers sur lesquels je dois travailler des dates au format suivant: XY
Avec X = un nombre de 1 à 3 chiffres représentant le numéro du jour
Y = un nombre à 2 chiffres représentant l'année

Exemple: 25612 = 256e jour de l'année 2012 = 12 septembre 2012

Est-ce que quelqu'un à une idée de comment faire la conversion automatiquement par VBA?
Ou alors dois-je simplement éliminer l'idiot qui a eu l'idée de mettre une date sous cette forme?

D'avance merci à ceux qui prendront le temps de répondre,

Guillaume

[issoram]

Bonjour,

Effectivement une année sur 2 chiffres ce n'est pas bien prudent!
Est-ce que ces dates concernent toutes le 21ème siècle?
Si oui, tu peux essayer quelque chose comme ça:

Code :

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

DateAdd("y", 256, DateSerial(2000 + 12, 1, 0))

[CristofMartins]

Salut,
Que je connaisse, il n'y pas de fonction qui le font automatiquement, par contre la deuxième solution serait une bonne solution
Je te conseil peut-etre de toi même créer un script pour faire la conversion. ça ne doit pas te prendre trop long temps.

[gbbtt]

Problème résolu en adaptant le code d'issoram! (par contre je ne sais pourquoi avec le dateserial cela ne fonctionnait pas j'ai donc du mettre "à la main" l'année)

Code :

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

1
2
3
4
5
 
function ladate(b as integer, a as integer)
annee = "01/01/" & b
ladate = DateAdd("y", a - 1, annee)
end function

Merci beaucoup

[AlainTech]

Bonjour,

J'y suis pourtant arrivé en me basant sur l'idée d'issoram:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
  MsgBox Convertdate(25612)
End Sub
 
Function Convertdate(iNumber As Long) As Date
  Dim iDays As Integer
  Dim iYear As Integer
  iDays = iNumber \ 100
  iYear = iNumber Mod 100
  Convertdate = DateAdd("d", iDays, DateSerial(iYear, 1, 0))
End Function

[Philippe Tulliez]

Bonjour,
Attention tout de même qu'en typant l'argument comme Integer, il y aura un problème à partir du 328ème jour de l'année 2012 et les suivantes.
La capacité maximale d'un entier étant 32767, il vaudrait mieux opter pour un type Long

[AlainTech]

Bonjour corona,

Bien vu!

J'ai eu une hésitation et n'ai pas assez réfléchi.
Je corrige...