a question about the fileage function 1

[bobbygm]

Hi everybody,

I'm a Delphi 7 programmer.
I'm using the FILEAGE function to read the date of a file, in OS timestamp format. Can you suggest a quick way to
obtain an OS timestamp that takes only year-month-day,
without hours-minutes-seconds?
I thought that the OS timestamp could have 16 bit for
yy-mm-dd and 16 bit for hh-mi-ss, so I could do an 'and'
with 'ffff0000' (in hexadecimal) in order to bring the
hh-mi-ss bits to zero, but it's only an idea, and I
don't know how to implement it anyway.
Please help if you can!
Thank you very much,

Emanuele

 

[sggaunt]

Is this what you mean?

// getdate returns the date stamp from a file
// if it cannot read this it returns todays date.
function GetDate(filename: string): TDateTime;
var Sr: tsearchrec;
begin
   if FindFirst(Filename, faAnyFile, SR) = 0 then
       begin
          try
              Result := filedatetodatetime(SR.Time);
          except
              Result := Date;
          end;
       end
   else
      begin
         Result := Date;
      end;
   FindClose(SR);
end;

Steve: Delphi a feersum engin indeed.