Delphi获取Excel文档创建、修改、访问的日期和时间

function ConvertFileDateFormat(xFt:_FileTime):TDateTime;  { 转换文件的时间格式 }

var

    xSyst : _SystemTime;

    xTemp:_FileTime;

begin

    FileTimeToLocalFileTime(xFt,xTemp);

    FileTimeToSystemTime(xTemp,xSyst);

   ConvertFileDate:=SystemTimeToDateTime(xSyst);

end; 

procedure TfmInsertWorkbookInformation.btnOkClick(Sender:TObject);

const

xFormat = 'yyyy/m/d h:mm' ; {设定时间格式 }

Var

    xTSr:TSearchRec; {申明xTSr为一个查找记录 }

    xT1,xT2,xT3:string;
begin

    FindFirst('xWb.Path[0]+'\'+xWb.Name' ,faAnyFile,xTSr); {查找目标文件 ,  'xWb.Path[0]+'\'+xWb.Name': 工作簿的路径和名称 }

    xT1:=FormatDateTime(xFormat,ConvertFileDateFormat(xTSr.FindData.ftCreationTime)); {返回Excel文件的创建时间 }

    xT2:=FormatDateTime(xFormat,ConvertFileDateFormat(xTSr.FindData.ftLastWriteTime)); {返回Excel文件的修改时间 }

    xT3:=FormatDateTime(xFormat,ConvertFileDateFormat(xTSr.FindData.ftLastAccessTime)); {返回Excel文件的访问时间 }

    ShowMessage(xT1);

    ShowMessage(xT2);

    ShowMessage(xT3);

    FindClose(xTSr);

end;