[VB6] Comment formatter une variable heure avec MS

Version imprimable

05/10/2006, 13h07
Jihnn

[VB6] Comment formatter une variable heure avec MS

Bonjour !

Développant un client IRC, je crois que savoir à quelle heure un message a été posté peut être intéressant. Or, je suis conscient que certaines personnes ne préfèrent qu'avoir l'heure et la minute, d'autres, avec les secondes, et d'autres, avec les millisecondes. Toutefois, je n'ai pas trouvé de "variables" dans le MSDN qui auraient pu m'aider. Voici, au mieux, ce que je peux faire :

Code:

Var = Format(Time, "HH:MM:SS")

Merci d'avance,

Jihnn
05/10/2006, 14h03
Le Pharaon

Teste ceci

Code:

Var = Format(Time, "h:m:s")
05/10/2006, 14h16
Phifi

Citation:

"Une question idiote n'existe pas... seulement des réponses idiotes."

Quelle est la question exactement ?
05/10/2006, 22h35
Delbeke

Tu peux utilie différents chaine de format pour afficher une heure
"hh:nn:ss","nn:ss","h:n:s","hh:nn"
essaye différentes combinaisons, tu en trouveras bien une qui te plaise :)
05/10/2006, 23h10
Jihnn

En fait, Phifi, ma question était dans le titre mais vu les réponses, je crois que je ne m'étais pas bien fait comprendre, je m'en excuse :oops:

En fait, je voulais savoir comment afficher les millisecondes de la seconde présente. Je faisais savoir, dans le premier message, que je savais utiliser les bases de Format avec la variable Time, mais que je n'avais pas trouvé un moyen d'afficher les millisecondes.

Donc ma question, en gras, comment afficher les millisecondes à l'aide de la fonction Format (ou tout autre...) de la variable Time ?

Merci d'avance,
Jihnn

Vb ne fournit pas de fonction date/heure à la miliseconde
Mais windows peut le faire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Option Explicit
 
 
Private Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type
 
 
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
 
Public Function HeureSysteme() As String
' Retourne l'heure système sous forme de chaîne
' (précision à la milliseconde)
  Dim sysTime As SYSTEMTIME
  Call GetSystemTime(sysTime)
'  HeureSysteme = sysTime.wDayOfWeek & ", " & _
                 sysTime.wDay & "/" & _
                 sysTime.wMonth & "/" & _
                 sysTime.wYear & " " & _
                 sysTime.wHour & ":" & _
                 sysTime.wMinute & ":" & _
                 sysTime.wSecond & "'" & _
                 sysTime.wMilliseconds
  HeureSysteme = Right("00" & sysTime.wDay, 2) & "/" & _
                 Right("00" & sysTime.wMonth, 2) & "/" & _
                 Right("0000" & sysTime.wYear, 4) & " " & _
                 Right("00" & sysTime.wHour, 2) & ":" & _
                 Right("00" & sysTime.wMinute, 2) & ":" & _
                 Right("00" & sysTime.wSecond, 2) & ":" & _
                 Right("0000" & sysTime.wMilliseconds, 4)
End Function

Seul incovenient, c'est l'heure systeme .

06/10/2006, 13h20
Jihnn

Même chose que la variable Time, ça me convient :)

Je vais le mettre en résolu, pour l'instant, et je vais regarder ce code. Merci :)