Функция FileTimeToSystemTime

Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, _
    lpSystemTime As SYSTEMTIME) As Long

FileTimeToSystemTime конвертирует время и дату, хранимые в структуре FILETIME в более удобный формат структуры SYSTEMTIME

lpFileTime

Дата и время в формате FILETIME для конвертации

lpSystemTime

Получаемые значения даты и времени в формате SYSTEMTIME

Пример

' Определяем дату создания файла D:\readme.txt
Dim hFile As Long  ' описатель открытого файла
Dim ctime As FILETIME  ' дата создания файла
Dim atime As FILETIME  ' дата последнего обращения
Dim mtime As FILETIME  ' дата последней модификации
Dim thetime As SYSTEMTIME ' для манипуляций с датами
Dim retval As Long ' возвращаемое значение

' Сначала откроем файл D:\readme.txt
' в режиме только для чтения
hFile = CreateFile("D:\readme.txt", GENERIC_READ, FILE_SHARE_READ, ByVal CLng(0), OPEN_EXISTING, FILE_ATTRIBUTE_ARCHIVE, 0)
If hFile = -1 Then
  Debug.Print "Не могу открыть указанный файл"
  End
End If
' Затем получаем интересующие даты
retval = GetFileTime(hFile, ctime, atime, mtime)
' Переводим дату создания в системное локальное время
retval = FileTimeToLocalFileTime(ctime, ctime)
' конвертируем формат FILETIME в формат SYSTEMTIME
retval = FileTimeToSystemTime(ctime, thetime)
' Выводим результат
Debug.Print "Файл создан "; thetime.wMonth; "-"; thetime.wDay; "-"; thetime.wYear

' Закрываем файл
retval = CloseHandle(hFile)

Смотри также

SystemTimeToFileTime

Категория

Время