home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / arexx / misc_arexx / age.rexx next >
OS/2 REXX Batch file  |  1996-09-03  |  425b  |  49 lines
  1. /* CPR to Age converter... by Warp oh' GiGA Prod...©1996 */
  2.  
  3.  
  4. say age(230577)
  5.  
  6. exit
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16. AGE:
  17.  
  18.     
  19.     CPR = arg(1)
  20.     
  21.     BD = left(CPR,2)
  22.     BM = substr(CPR,3,2)
  23.     BY = Right(CPR,2)
  24.     
  25.     
  26.     
  27.     
  28.     CD = substr(date(u),4,2)
  29.     CM = left(date(u),2)
  30.     CY = right(date(u),2)
  31.     
  32.     y = cy-by
  33.     
  34.     select
  35.         
  36.         when cm < bm then do
  37.             y=y-1
  38.         end
  39.         
  40.         when cm = bm then do    
  41.             if cd < bd then do
  42.                  y=y-1
  43.             end
  44.         end
  45.         
  46.         otherwise nop
  47.     end
  48.  
  49. return Y