GetSystemTime st

  FormatSystemTime = Format$(Now, "hh:nn:ss") & ":" & Format$(.wMilliseconds, _
    "000")

Private Declare Sub GetSystemTime 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
Public Function ExactTime() As String  ' TimeStamp hh:nn:ss.mmm
  Dim st As SYSTEMTIME
  GetSystemTime st
  ExactTime = Format(st.wHour, "00") & ":" & Format(st.wMinute, "00") & ":" & _
    Format(st.wSecond, "00") & "." & Format(st.wMilliseconds, "000")
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Mit freundlichen Grüssen
Detlev

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Zitat:

...eine Zeitdifferenz von genau minus 2 Stunden hat...

Declare Sub GetLocalTime Lib "kernel32" ( _
        lpSystemTime As SYSTEMTIME)

wDayOfWeek Enthält eine Zahl, die den Wochen[u]tagtag angibt 
(z.B. [u]1 für Sonntag, 2 für Montag usw.)

wDayOfWeek Enthält eine Zahl, die den Wochen[u]tag angibt 
(z.B. [u]0 für Sonntag, [u]1 für Montag usw.)

Beste Gr??e
Olaf