' Benötigte API's
Public Declare Sub GetSystemTime Lib "kernel32" ( _
  lpSystemTime As SYSTEMTIME)
 
Public 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

' Datum/Zeit im MIME-kompatiblen Format
Private Function GetTimeStamp()
  Dim vDays As Variant
  Dim vMonths As Variant
  Dim ST As SYSTEMTIME
  Dim vNow As Variant
  Dim vDif As Variant
 
  vDays = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
  vMonths = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", _
    "Sep", "Oct", "Nov", "Dec")
 
  ' Heute
  GetSystemTime ST
  With ST
    vNow = CDate(CStr(.wDay) + "/" + CStr(.wMonth) + "/" + CStr(.wYear) + " " + _
      CStr(.wHour) + ":" + CStr(.wMinute) + ":" + CStr(.wSecond))
  End With
 
  ' Zeitdifferenz GMT-Time
  vDif = Now - vNow
 
  GetTimeStamp = vDays(Weekday(vNow, vbMonday) - 1) & ", " & _
    Day(vNow) & " " & vMonths(Month(vNow) - 1) & " " & Year(vNow) & " " & _
    Format(Now, "hh:mm:ss") & " " & IIf(vDif >= 0, "+", "-") & Format$(Abs( _
    Hour(vDif)), "00") & Format$(Abs(Minute(vDif)), "00")
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de