Formato de la hora con milisegundos

som
12 de Diciembre del 2003
Hola, me podriais explicar como puedo recuperar la hora del sistema pero con MILISEGUNDOS.

Gracias

Juan
12 de Diciembre del 2003
Te pongo un ejemplo que viene en el API-Guide al cual
he añadido un código que hace lo mismo pero sin usar
funciones API, elige el método que quieras:

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
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 Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [email protected]
Dim MyTime As SYSTEMTIME
'Set the graphical mode to persistent
Me.AutoRedraw = True
'Get the local time
GetLocalTime MyTime
'Print it to the form
Me.Print "La fecha local es:" & MyTime.wDay & "-" & MyTime.wMonth & "-" & MyTime.wYear
Me.Print "La hora local es:" & MyTime.wHour & ":" & MyTime.wMinute & ":" & MyTime.wSecond & " con " & MyTime.wMilliseconds & " milisegundos"
Me.Print
'************
'Ahora mi código:
Dim milisegundos As Single
milisegundos = Timer
milisegundos = ((milisegundos * 100) Mod 100) * 10
Me.Print "La fecha local es:" & Format(Date, "dd/mm/yyy")
Me.Print "La hora local es:" & Format(Time, "hh:mm:ss") & " con " & milisegundos & " milisegundos"
End Sub

Nota: normalmente ambos métodos darán la misma hora,
si ves alguna diferencia en los milisegundos seguramente
será que entre la ejecución de uno y otro el reloj del
sistema ha cambiado.
También te aviso de que no son métodos muy exactos,
el nº de milisegundos siempre es multiplo de 10.