home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a013 / 1.ddi / SOURCE.EXE / F_PRNDAT.PRG < prev    next >
Encoding:
Text File  |  1991-01-25  |  1.4 KB  |  50 lines
  1. *****************************************************************
  2. FUNCTION PRNTDATE (indate, choice)
  3. *****************************************************************
  4.  
  5. * Returns passed date value as a string in selected format
  6.  
  7. * Copyright(c) 1991 -- James Occhiogrosso
  8.  
  9. LOCAL outdate := ''
  10.  
  11. * If date argument is empty or not a date, default to system date
  12. IF VALTYPE(indate) != 'D' .OR. EMPTY(indate)
  13.    indate = DATE()
  14. ENDIF
  15.  
  16. * If choice is invalid,  default to 1
  17. IF VALTYPE(choice) != 'N' .OR. choice = 0 .OR. choice > 4
  18.    choice = 1
  19. ENDIF
  20.  
  21. * Create return string in selected format
  22. DO CASE
  23.  
  24.    CASE choice = 1
  25.       * Return date = MonthName, dd yyyy
  26.       outdate = CMONTH(indate) + ' ' + LTRIM(STR(DAY(indate))) ;
  27.                 + ', ' + LTRIM(STR(YEAR(indate)))
  28.  
  29.    CASE choice = 2
  30.       * Return date = DayName, MonthName, dd yyyy
  31.       outdate =  CDOW(indate) + ', ' + CMONTH(indate) + ' ' +  ;
  32.                  LTRIM(STR(DAY(indate))) + ', ' +  ;
  33.                  LTRIM(STR(YEAR(indate)))
  34.  
  35.    CASE choice = 3
  36.       * Return date = dd MonthName yyyy
  37.       outdate = LTRIM(STR(DAY(indate))) + ' ' + CMONTH(indate) ;
  38.                 + ' ' + LTRIM(STR(YEAR(indate)))
  39.  
  40.    CASE choice = 4
  41.       * Return date = DayName, dd MonthName yyyy
  42.       outdate = CDOW(indate) + ', ' + LTRIM(STR(DAY(indate)))  ;
  43.                 + ' ' +  CMONTH(indate) + ' ' +  ;
  44.                 LTRIM(STR(YEAR(indate)))
  45.  
  46. ENDCASE
  47.  
  48. RETURN outdate
  49.  
  50.