Date

[Technocrat]

Anyone know how to easily change that stupid int of date and time of the DATE type to a normal looking string?

[Technocrat]

Incase any one cares here is what you can do

DATE d = 36957.5638888889; // 03/07/2001  01:32:00 PMb    
FILETIME ft = {0, 0};
SYSTEMTIME st = {1899, 12, 0, 30, 0, 0, 0}; // zero-date for DATE
// convert zero-date to FILETIME
SystemTimeToFileTime(&st, &ft);// convert zero-date FILETIME to large integer so we could do some math
ULARGE_INTEGER ulBase;
ulBase.LowPart = ft.dwLowDateTime;
ulBase.HighPart = ft.dwHighDateTime;// convert our DATE to large integer so we could add it to a base
ULARGE_INTEGER ulDateTime;
ulDateTime.QuadPart = d*(24*60*60); // seconds in a DATE
ulDateTime.QuadPart *= 10000000;// convert to 100-nanoseconds
// add the zero-date valueul
DateTime.QuadPart += ulBase.QuadPart;
// convert back to FILETIME
ft.dwLowDateTime = ulDateTime.LowPart;
ft.dwHighDateTime = ulDateTime.HighPart;    // now, get the SYSTEMTIME value of original
DATEFileTimeToSystemTime(&ft, &st); 

[Chris]

Technocrat, hope this will help. Although it is in VB.

Option Explicit
'//WIN32API declare
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Long, ByVal " & _
	"dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const FILE_SHARE_WRITE = &H2
Private Const FILE_SHARE_READ = &H1
Private Const OPEN_EXISTING = 3
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_FLAG_RANDOM_ACCESS = &H10000000

'//WIN32API declare
Private Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
Private Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long
Private Declare Function GetTimeZoneInformation Lib "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long

'//WIN32API type declare
Private Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type

Private Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type

Private Type TIME_ZONE_INFORMATION
        Bias As Long
        StandardName(32) As Integer
        StandardDate As SYSTEMTIME
        StandardBias As Long
        DaylightName(32) As Integer
        DaylightDate As SYSTEMTIME
        DaylightBias As Long
End Type

Private ft_create As FILETIME
Private ft_last_access As FILETIME
Private ft_last_write As FILETIME
Private st As SYSTEMTIME
Private tz As TIME_ZONE_INFORMATION
Private hFile As Long

Private Sub CmdPath_Click()
On Error GoTo ErrHandle
    With CDlg
        .DialogTitle = "Open File..."
        .ShowOpen
        txtFile.Text = .FileName
        
        Read_FileDateTime
    End With
    Exit Sub
ErrHandle:

End Sub

[Chris]

Continue previous post...

Private Sub Read_FileDateTime()
    Dim tmp As String
    
    If Len(txtFile.Text) = 0 Then Exit Sub
    '//open the File
    hFile = CreateFile(txtFile.Text, _
                        GENERIC_READ Or GENERIC_WRITE, _
                        FILE_SHARE_READ Or FILE_SHARE_WRITE, _
                        ByVal 0&, _
                        OPEN_EXISTING, _
                        FILE_ATTRIBUTE_NORMAL Or FILE_FLAG_RANDOM_ACCESS, _
                        0)
    If hFile > 0 Then
        '//Get the FileDateTime
        GetFileTime hFile, ft_create, ft_last_access, ft_last_write
        
        '//Get the time Zone Bias
        GetTimeZoneInformation tz
        
        '//Convert the date time to System date time
        tmp = ""
        FileTimeToSystemTime ft_create, st
        tmp = Format(Str$(st.wDay) & "/" & Trim(Str$(st.wMonth)) & "/" & Trim(Str$(st.wYear)), "dddd, mmmm d yyyy") & " " & Format(CInt(Trim(Str$(st.wHour))) - (tz.Bias / 60) & ":" & Trim(Str$(st.wMinute)) & ":" & Trim(Str$(st.wSecond)), "hh:nn:ss AMPM")
        lblInfo.Caption = Space(4) & "Create      : " & tmp & vbCrLf
        
        FileTimeToSystemTime ft_last_access, st
        tmp = Format(Str$(st.wDay) & "/" & Trim(Str$(st.wMonth)) & "/" & Trim(Str$(st.wYear)), "dddd, mmmm d yyyy") & " " & Format(CInt(Trim(Str$(st.wHour))) - (tz.Bias / 60) & ":" & Trim(Str$(st.wMinute)) & ":" & Trim(Str$(st.wSecond)), "hh:nn:ss AMPM")
        lblInfo.Caption = lblInfo.Caption & Space(5) & "Last Access : " & tmp & vbCrLf
        
        FileTimeToSystemTime ft_last_write, st
        tmp = Format(Str$(st.wDay) & "/" & Trim(Str$(st.wMonth)) & "/" & Trim(Str$(st.wYear)), "dddd, mmmm d yyyy") & " " & Format(CInt(Trim(Str$(st.wHour))) - (tz.Bias / 60) & ":" & Trim(Str$(st.wMinute)) & ":" & Trim(Str$(st.wSecond)), "hh:nn:ss AMPM")
        lblInfo.Caption = lblInfo.Caption & Space(5) & "Last Write  : " & tmp & vbCrLf
        lblInfo.ForeColor = vbBlue
    Else
        lblInfo.Caption = "File not found!"
        lblInfo.ForeColor = vbRed
    End If
    
    '//Close the File handle
    CloseHandle hFile
End Sub