GetUTCTime

Hvad er UTC time?

Universal Time Convention

Windows har en funktion liiige til dette: http://msdn.microsoft.com/library/psdk/sysmgmt/time_56p1.htm

Men, men... det er jo ikke til VB, men så prøv dette:
--------------------
Function UTC() As Date
  Dim xSysTime As SYSTEMTIME  \' struktur til systemkaldet
  GetSystemTime xSysTime      \' Hent tiden i UTC
  With xSysTime                \' Gør skrivearbejdet og referencerne lidt lettere
    UTC = DateSerial(.wYear, .wMonth, .wDay) + TimeSerial(.wHour, .wMinute, .wSecond) \' sammensæt tiden til UTC
  End With
End Function
--------------
I øvrigt påstår MS at UTC er en forkortelse for Coordinated Universal Time.

/Dan

Ja, og så glemte jeg jo deklarationerne (som taget lige ud af Win32Api.txt):
--------------
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
Declare Sub GetSystemTime Lib \"kernel32\" (lpSystemTime As SYSTEMTIME)
-----------------
De skal natruligvis stå i et VB-modul (sikkert sammen med funktionen)...

/Dan

Det skal vist være et svar for at kunne accepteres (har jeg fundet ud af :)