$PBExportHeader$f_getfiletime.srf
$PBExportComments$金额大写--函数
global type f_getfiletime from function_object
end type

forward prototypes
global function datetime f_getfiletime (string as_filename, integer ai_flag)
end prototypes

global function datetime f_getfiletime (string as_filename, integer ai_flag);ulong lul_hFile
datetime ldt_time 
string ls_time
string ls_date
ofstruct lst_ofstruct
systemtime lst_systemtime 
filetime lst_filetime1,lst_filetime2,lst_filetime3,lst_filetime//分别是创建时间、访问时间、修改时间 

if ai_flag < 1 or ai_flag > 3 then ai_flag = 3
lul_hFile = openfile(as_filename,lst_ofstruct,0)//取句柄

GetFileTime(lul_hFile,lst_filetime1,lst_filetime2,lst_filetime3)//取时间
choose case ai_flag //将UTC格式转化成系统时间格式
 case 1//创建时间
//  FileTimeToSystemTime(LST_FileTime1,LST_SYSTEMTIME)
  FileTimeToLocalFileTime(LST_FileTime1,lst_filetime) 
 case 2//访问时间
//  FileTimeToSystemTime(LST_FileTime2,LST_SYSTEMTIME) 
  FileTimeToLocalFileTime(LST_FileTime2,lst_filetime) 
 case 3//修改时间
//  FileTimeToSystemTime(LST_FileTime3,LST_SYSTEMTIME) 
  FileTimeToLocalFileTime(LST_FileTime3,lst_filetime) 
end choose 
FileTimeToSystemTime(lst_filetime,LST_SYSTEMTIME) 

ls_date = string(lst_systemtime.wYear,'0000')+ '-'+string(lst_systemtime.wMonth,'00') + '-'+string(lst_systemtime.wDay,'00')+' '
ls_time = string(lst_systemtime.wHour,'00')+ ':'+string(lst_systemtime.wMinute,'00') + ':'+string(lst_systemtime.wSecond,'00')


ldt_time = datetime(date(ls_date),time(ls_time))  //m0_f_开头的函数为我MBASE （MIS BASE FRAMEWORK）的基础函数，转换为时间

return ldt_time

 
end function