Функция LocalFileTimeToFileTime
Declare Function LocalFileTimeToFileTime Lib "kernel32" (lpLocalFileTime As FILETIME, _
lpFileTime As FILETIME) As Long
LocalFileTimeToFileTime конвертирует время из местного времени (используется текущая временная зона, установленная на компьютере) в UTC (время по Гринвичу). Время хранится в формате структуры FILETIME
- lpLocalFileTime
- Местное время в формате FILETIME для конвертации
- lpFileTime
- Получаемые значения даты и времени после конвертации
Пример
' Конвертируем дату 27 июля 1966 года 18:10:00
' местного времени
' в универсальное время по Гринвичу
Dim sourcetime As SYSTEMTIME ' задаваемое время
Dim localtime As FILETIME ' получаемое местное время
Dim utctime As FILETIME ' получаемое универсальное время
Dim retval As Long ' возвращаемое значение
' Установим время
sourcetime.wMonth = 7
sourcetime.wDay = 27
sourcetime.wYear = 1966
sourcetime.wHour = 18
sourcetime.wMinute = 10
sourcetime.wSecond = 0
' Конвертируем наше время в формат FILETIME
retval = SystemTimeToFileTime(sourcetime, localtime)
' Конвертируем местное время в UTC
retval = LocalFileTimeToFileTime(localtime, utctime)
Смотри также
FileTimeToLocalFileTime
Категория
Время