home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / cubs / age.prg next >
Encoding:
Text File  |  1989-03-31  |  170 b   |  11 lines
  1.  
  2.         STORE DATE() - DOB TO DAYS
  3.  
  4.         SET DECIMALS TO 1
  5.  
  6.         STORE DAYS / 367.3 TO MAGE
  7.  
  8.         SET SAFETY OFF
  9.  
  10.         REPLACE AGE WITH MAGE
  11.