Windows API Guide: EM_SETSEL Message


Declare Function FileTimeToLocalFileTime Lib "kernel32.dll" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long

Platforms: Win32s, Win 95/98, Win NT

FileTimeToLocalFileTime converts a time from UTC time (also known as Greenwich Mean Time) to "local time" (inside the computer's selected time zone). The source and target times are stored in FILETIME structures. The function returns 1 if successful, or 0 if an error occurs.

lpFileTime
The source time and date, which are in UTC time.
lpLocalFileTime
Receives the time and date stored in lpFileTime converted into the computer's current time zone time.

Example:

' Search for all files that match "C:\MyProgram\user*.*".  Display ' the creation time of each file.  Since the file search functions give the file times in UTC ' time, they must be converted to local time before they are displayed. Dim hsearch As Long  ' handle to the file search Dim findinfo As WIN32_FIND_DATA  ' receives info about matching files Dim success As Long  ' will be 1 if successive searches are successful, 0 if not Dim localtime As FILETIME  ' receives local creation time Dim systime As SYSTEMTIME  ' receives creation time Dim retval As Long  ' generic return value ' Begin a file search: hsearch = FindFirstFile("C:\MyProgram\user*.*", findinfo) If hsearch = -1 Then  ' no files match the search string   Debug.Print "(no files matched search parameter)"   End  ' abort program End If ' Display creation date of each file that matches the search.  Note that the name ' is displayed, the next file (if any) is found, and then the loop restarts. ' This way the first file (found above) will also be displayed. Do  ' begin loop   ' Convert UTC FILETIME to local SYSTEMTIME and display the date:   retval = FileTimeToLocalFileTime(findinfo.ftCreationTime, localtime)   retval = FileTimeToSystemTime(localtime, systime)   Debug.Print "Date:"; systime.wMonth; "-"; systime.wDay; "-"; systime.wYear      ' Get the next matching file and loop if it exists:   success = FindNextFile(hsearch, findinfo) Loop Until success = 0  ' keep looping until no more matching files are found ' Close the file search handle retval = FindClose(hsearch)

See Also: LocalFileTimeToFileTime
Category: Time

Go back to the alphabetical Function listing.
Go back to the Reference section index.


This page is copyright © 2000 Paul Kuliniewicz. Copyright Information.
Go back to the Windows API Guide home page.
E-mail: vbapi@vbapi.com Send Encrypted E-Mail
This page is at http://www.vbapi.com/ref/f/filetimetolocalfiletime.html



Windows API Guide
Windows API Guide - Reference - Volume 1: Version 3.0 For the MS-DOS and PC-DOS Operating Systems
ISBN: B001V0KQIY
EAN: N/A
Year: 1998
Pages: 610

flylib.com © 2008-2017.
If you may any questions please contact us: flylib@qtcs.net