Option Explicit

Private Declare PtrSafe Sub GetSystemTime Lib "Kernel32" (ByRef 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

Function CET() As Date
    Dim nowCET As SYSTEMTIME
    Application.Volatile
    Call GetSystemTime(nowCET)
    UTC = DateValue(nowCET.wDay & "/" & nowCET.wMonth & "/" & nowCET.wYear) + nowCET.wHour / 24 + nowCET.wMinute / 24 / 60 + nowUtc.wSecond / 24 / 3600
End Function