Discussion :

[aharel]

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...

[ProgElecT]

Salut

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
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

[aharel]

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?

[DAUDET78]

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

Les millisecondes ne sont pas gérées?

Non, La RTC ne donne pas la ms