conversion string en DateTime

Version imprimable

14/09/2018, 17h57
aharel

conversion string en DateTime

Bonjour,

Je récupère depuis un fichier texte une date au format suivant : yyyyMMddHHmmssfff
exemple : "20180711121027070" pour la date 11/07/2018 12:10:27.070

Je ne sais pas comment convertir cette date depuis une string vers un DateTime en VB6.

J'ai vu qu'il existait une fonction DateSerial(Year As Integer, Month As Integer, Day As Integer), mais pour la partie heure:mm:ss comment fait-on?

Quelqu'un a une solution ?

Merci d'avance...

Salut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim StrDateTime As String
StrDateTime = "20180711121027070" ' pour la date 11/07/2018 12:10:27.070
Dim LaDate As Date
Dim Lheure As Date
Dim Ans As Integer
Dim Mois As Integer
Dim Jours As Integer
Dim Heure As Integer
Dim Minute As Integer
Dim Seconde As Integer
 
Ans = Left(StrDateTime, 4)
Mois = Mid(StrDateTime, 5, 2)
Jours = Mid(StrDateTime, 8, 2)
Heure = Mid(StrDateTime, 9, 2)
Minute = Mid(StrDateTime, 11, 2)
Seconde = Mid(StrDateTime, 13, 2)
 
LaDate = DateSerial(Ans, Mois, Jours)       '11/07/2018
Lheure = TimeSerial(Heure, Minute, Seconde) '12:10:27

15/09/2018, 17h52
aharel

effectivement Timeserial

Merci pour la réponse,

Je n'avais pas vu que la fonction TimeSerial existait.

Du coup, je ne comprend pas trop comment les dates sont gérées en VB6.
Il n'existe pas de type DateTime?
Les millisecondes ne sont pas gérées?
16/09/2018, 13h36
DAUDET78

Citation:

Envoyé par aharel

Du coup, je ne comprend pas trop comment les dates sont gérées en VB6.

Comme dans tous les langages , en utilisant l'O.S. qui se reporte à l'utilisation de l'interruption logicielle 0x1AH (probablement) qui gère la seconde
Si tu veux des temps (pas des dates) à la ms, tu utilises timer

Citation:

Les millisecondes ne sont pas gérées?

Non, La RTC ne donne pas la ms