Discussion :

[drikse]

Bonjour a tous,

Voila mon petit soucis qui je pense est assez facile a resoudre (pourtant je n'y arrive pas ) :

J'ai une colonne contenant une date et horaire mais dans le format 08123.13215165 ==> je ne sais plus le nom de ce genre de format mais en gros ca veut dire 08123= le 123ieme jour de l'annee 2008 et le reste apres la virgule c'est l'heure.
Par exemple: 08002.5 ==> le 02 janvier 2008 à 12h00.

Y'a t'il une methode pour convertir cette date en date normal (jj/mm/aaaa hh:mm:ss

Heuu je pense pas avoir ete assez clair, mais n'hesiter pas a me poser des questions !

Merci

Ps: je crois me rappeler du format 08102.213216 il me semble que c'est le jour Julien un truc comme ca...

[firaponte]

heu, ma réponse est peut être trop simple par rapport à ce que tu cherches, mais moi je ferai ca:

selectionne la colonne que tu souhaites modifier, clique sur format/cellule/nombre et selectionne le format de date qui t'interesse...

[ucfoutu]

Bonjoiur,

C'est en effet l'une des formes possibles d'une julienne (pas julien).

Utilise dateadd et ajoute 123 jours au 1er jour de l'année considérée.

La fonction mid te servira à extraire 08 et 123

Edit : il est devenu (depuis l'histoire du bug 2K) déconseillé d'utiliser 2 chiffres dans une julienne pour le millésime.

[drikse]

Ok merci, j'avoue ne pas avoir tres tres bien compris comment je dois faire mais je vais me pencher dessus!
Merci bcp

[fring]

Bonjour,

Supposons que tu as "08123.13215165" dans la cellule A1, essaye ceci (issu de la FAQ Visual Basic)

Code :

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

1
2
3
4
5
6
7
8
9
Sub conversion()
Dim DateJul As String, Resultat As Date
 
DateJul = Split(Range("A1"), ".")(0) '<-- récupération des caractères avant le point
Resultat = DateSerial(CInt(20 & Left(DateJul, 2)), 1, CInt(Mid(DateJul, 3)))
 
MsgBox Resultat
 
End Sub

Par contre pour les heures je ne vois pas à quoi peut correspondre "13215165"
.

[drikse]

Pour ce qui vient apres la virgule c'est l'heure, cad par exemple 1=24h donc 0.5=12h00, Je vais essayer ton ton ptit code ca a l'air d'etre pas mal, il me reste plus qu'apres a concatenere aver l'heure et mettre ceci en format jj/mm/aaaa hh:mm:ss
Merci!

[drikse]

Ca marche!! merci !!j'ai bien un format jj/mm/aaaa, pour l'heure c'est bon j'arrive a convertir en hh:mm:ss, le seul ptit souci est que des que je concatner mes deux cases le format date est perdu et impossible de le remettre en format date, c dommage car j'aimerai faire des graphique suivant le temps mais la ca bloque !

[JackOuYA]

Le format Date d'excel est aussi en jour ..d'ou:

Code :

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

1
2
3
4
5
6
 st = "08123.5"
DateJul = Split(st, ".")(0) '<-- récupération des caractères avant le point
TempsJUl = Cdbl("0." &Split(st, ".")(1)) '<-- récupération des caractères apres le point
 
resultat = DateSerial(CInt(20 & Left(DateJul, 2)), 1, CInt(Mid(DateJul, 3))) + TempsJUl 
Debug.Print Format(resultat, "dd/mm/yyyy hh:mm:ss")