home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a013 / 1.ddi / SOURCE.EXE / F_ISLAST.PRG < prev    next >
Encoding:
Text File  |  1991-01-25  |  520 b   |  22 lines
  1. *****************************************************************
  2. FUNCTION ISLASTDAY (date_val)
  3. *****************************************************************
  4.  
  5. * Returns true if current date is last day of month
  6.  
  7. * Copyright(c) 1991 -- James Occhiogrosso
  8.  
  9.  
  10. IF date_val = NIL
  11.     * Default to current date if no value is passed
  12.     date_val = DATE()
  13.  
  14. ELSEIF VALTYPE(date_val) != 'D'
  15.     * Return false if argument is wrong type
  16.     RETURN .F.
  17.  
  18. ENDIF
  19.  
  20. RETURN ( DAY(date_val) = LASTDAY(date_val) )
  21.  
  22.