home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST30.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  1.3 KB  |  37 lines
  1. ********************
  2.  
  3. FUNCTION Printdate
  4.  
  5.    PARAMETERS _in_date, _p_option
  6.  
  7.    * _in_date is the date to use
  8.    * _p_option is the printing option
  9.  
  10.    IF PCOUNT() = 0
  11.       _in_date = DATE()
  12.       _p_option = 1
  13.    ELSEIF PCOUNT() = 1
  14.       _p_option = 1
  15.    ENDIF
  16.  
  17.    DO CASE
  18.    CASE _p_option = 1
  19.       RETURN(CMONTH(_in_date) + " " + DAYWORD(_in_date) + ", " + LTRIM(TRIM(STR(YEAR(_in_date)))))
  20.    CASE _p_option = 2
  21.       RETURN(CDOW(_in_date) + ", the " + DAYWORD(_in_date) + " of " + CMONTH(_in_date) + ", " + LTRIM(TRIM(STR(YEAR(_in_date)))))
  22.    CASE _p_option = 3
  23.       RETURN(CDOW(_in_date) + ", the " + DAYWORD(_in_date) + " of " + CMONTH(_in_date))
  24.    CASE _p_option = 4
  25.       RETURN("The " + DAYWORD(_in_date) + " of " + CMONTH(_in_date) + ", " + LTRIM(TRIM(STR(YEAR(_in_date)))))
  26.    CASE _p_option = 5
  27.       RETURN(CDOW(_in_date) + ", " + CMON(_in_date) + " " + LTRIM(TRIM(STR(DAY(_in_date),2))) + ", " + STR(YEAR(_in_date),4))
  28.    CASE _p_option = 6
  29.       RETURN(CMONTH(_in_date) + " " + LTRIM(TRIM(STR(DAY(_in_date)))) + ", " + LTRIM(TRIM(STR(YEAR(_in_date)))))
  30.    CASE _p_option = 7
  31.       RETURN(SUBSTR(DTOS(_in_date),1, 4) + "-" + SUBSTR(DTOS(_in_date), 5,2) + "-" + SUBSTR(DTOS(_in_date),7))
  32.    OTHERWISE
  33.       RETURN(DTOC(_in_date))
  34.    ENDCASE
  35.  
  36. * End of File
  37.