vb 中long型数据如何转换为date

 hFind = FtpFindFirstFile(hConnection, "*.*", pData, 0, 0)
pdata.ftLastWriteTime.dwLowDateTime 获取的是长整数,我如何能转换为日期型,实在不行用api也可

解决方案 »

  1.   

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

  2.   

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

  3.   

    不能强制转换吗?非要API,CDate不行吗?
      

  4.   

    对于FILETIME来说，用CDATE是不行的。
      

  5.   

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