SystemTime

Private Sub Command1_Click()
Dim the_date As Date
Dim system_time As SYSTEMTIME
Dim local_file_time As FILETIME
Dim utc_file_time As FILETIME

' Get the local time.

the_date = CDate(txtLocalTime.Text)

' Convert it into a SYSTEMTIME.

DateToSystemTime the_date, system_time

' Convert it to a FILETIME.

SystemTimeToFileTime system_time, local_file_time

' Convert it to a UTC time.

LocalFileTimeToFileTime local_file_time, utc_file_time

' Convert it to a SYSTEMTIME.

FileTimeToSystemTime utc_file_time, system_time

' Convert it to a Date.

SystemTimeToDate system_time, the_date

' Display the result.

txtUTCTime.Text = Format$(the_date)

End Sub

'Reverse the steps to go from a UTC time to the

'local file system time.