[blue]Option Compare Database
Option Explicit
Private Type SYSTEMTIME
Year As Integer
Month As Integer
DayOfWeek As Integer
Day As Integer
Hour As Integer
Minute As Integer
Second As Integer
Milliseconds As Integer
End Type
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Public Sub check()
Dim st As SYSTEMTIME
GetSystemTime st
MsgBox "UTC is: " & DateSerial(st.Year, st.Month, st.Day) & " " & TimeSerial(st.Hour, st.Minute, st.Second)
End Sub[/blue]