home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / STOD.PRG < prev    next >
Text File  |  1990-10-22  |  1KB  |  34 lines
  1. ***********
  2. * STOD.PRG
  3. * by Tom Rettig and Leonard Zerman
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO STOD WITH <date string>
  7. * RETURN: <expD> date type of <date string>
  8. ***********
  9. PARAMETERS par1
  10. PRIVATE format 
  11. format = tr_dfmt                                     && Global var
  12. DO CASE
  13.    CASE format = "ANSI"                              && yy.mm.dd
  14.       tr_retd = CTOD( SUBSTR(par1,1,4) +"/"+;
  15.                       SUBSTR(par1,5,2) +"/"+;
  16.                       SUBSTR(par1,7,2)       )
  17.  
  18.    CASE format = "AMERICAN"                          && mm/dd/yy
  19.       tr_retd = CTOD( SUBSTR(par1,5,2) +"/"+;
  20.                       SUBSTR(par1,7,2) +"/"+;
  21.                       SUBSTR(par1,1,4)       )
  22.  
  23.    OTHERWISE                                         && dd?mm?yy
  24.       * Format is BRITISH, ITALIAN, FRENCH, or GERMAN
  25.       tr_retd = CTOD( SUBSTR(par1,7,2) +"/"+;
  26.                       SUBSTR(par1,5,2) +"/"+;
  27.                       SUBSTR(par1,1,4)       )
  28. ENDCASE
  29. IF fox
  30.    RETURN (tr_retn)
  31. ENDIF
  32. * eof stod *
  33.  
  34.