Function FileAge(Nombre:Unicodestring):double; Var Arch:Longint; FechaHoraUTC,FechaHoraLocal:FileTime; FechaHoraS:SystemTime; Begin FileAge:=-1; Arch:=FileOpen(Nombre,fmOpenReadWrite); if GetFileTime(Arch,nil,nil,@FechaHoraUTC) then Begin FileTimeToLocalFileTime(FechaHoraUTC,FechaHoraLocal); FileTimeToSystemTime(FechaHoraLocal,FechaHoraS); FileAge:=SystemTimeToDateTime(FechaHoraS); End; FileClose(Arch) End;