Discussion :

[newcodeur]

Bonjour tout le monde je souhaiterais convertir une chaine de caractère de la forme suivante :

Code :

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

1
2
3
4
5
6
 
 
 
A20080528.2330-2345.1.xml
et 
20080528041500Z

en chaine de la façon suivante:
20080528 23h45mn pour le 1er

et 20080528 04h15mn pour le second

j'ai essayé avec les methodes cdate et datevalue mais sa ne m'a rien donnée.
on m'a dit de cherché du coté de la fonction

Code :

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

mid

je suis en train de le faire actuellement mais je n'y arrive pas.
quelqu'un aurait-il une idée???

[newcodeur]

J'ai réussi a trouver la réponse
je vous la donne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub DATE_test()
 
 
 
Dim date_xml As String, date_xml2, date_ok, date_ok2
 
date_xml = "A20080528.2330-2345.1.xml"
date_xml2 = "20080528001500Z"
 
 
 
date_ok = Mid(date_xml, 2, 8) + " " + Mid(date_xml, 16, 2) + "h" + Mid(date_xml, 18, 2) + "mn"
 
 
 MsgBox (date_ok)
 
 
date_ok2 = Mid(date_xml2, 1, 8) + " " + Mid(date_xml2, 9, 2) + "h" + Mid(date_xml2, 11, 2) + "mn"
 
MsgBox (date_ok2)
 
End Sub