home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / DTOS.PRG < prev    next >
Text File  |  1990-10-22  |  955b  |  35 lines
  1. ***********
  2. * DTOS.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 DTOS WITH <date> 
  7. * RETURN: <expC> date string of <expD> in format "YYYYMMDD"
  8. ***********
  9. PARAMETERS par1 
  10. PRIVATE temp_retc
  11. IF par1 = CTOD("  /  /  ")
  12.    temp_retc = "00000000"
  13. ELSE
  14.    temp_retc = STR( YEAR( par1 ), 4 ) 
  15.    IF MONTH( par1 ) < 10
  16.       temp_retc = temp_retc + "0" + STR( MONTH( par1 ), 1 )
  17.    ELSE
  18.       temp_retc = temp_retc +       STR( MONTH( par1 ), 2 )
  19.    ENDIF
  20.    IF DAY( par1 ) < 10
  21.       temp_retc = temp_retc + "0" + STR( DAY( par1 ), 1 )
  22.    ELSE
  23.       temp_retc = temp_retc +       STR( DAY( par1 ), 2 )
  24.    ENDIF
  25. ENDIF
  26. CALL trpass WITH temp_retc   && put date string in tr_retc through library.
  27. CALL trexe WITH "retc"
  28. CALL Trexe   WITH "TRRETCLEN"
  29. IF fox
  30.    PRIVATE tr_temp
  31.    tr_temp = SUBSTR(tr_retc,1,tr_retn)
  32.    RETURN (tr_temp)
  33. ENDIF
  34. * eof dtos * 
  35.