Click above to get retro games delivered to your door ever month!

 alupdate()          Return date of last update of an alias
------------------------------------------------------------------------------
 Declaration
   database.hdr

 Syntax
   func date alupdate extern
   param alias sDatabase

 Arguments
   sDatabase is the alias to retrieve information about.

 Return
   The date of last update.

 Description
   The alupdate() function returns the date on which sDatabase was
   last updated.

 Example
   #define EXAMPLE_DATABASE
   #include example.hdr

   proc Test_alupdate
   // Determine if a backup is needed
   open sTest
   ? "Database last updated on", alupdate( sTest )
   if alupdate( sTest ) < daysfrom( today(), -3 ) // if older than three days
      ? "Doing backup..."
      close sTest // close before copy to write all current changes to disk
      copy file "stest.dbf" to "stest.bak"
      wait
      erase "stest.bak"
   endif
   endproc

   proc main
   Test_alupdate()
   endproc