home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol11n11.zip / BOMEOM.ZIP / BOMEOM.PRG
Text File  |  1991-11-14  |  795b  |  22 lines
  1. ***********************************************************************
  2. * FUNCTION BOM( dDay )                                Clipper 5
  3. * Return the first date of the month
  4. ***********************************************************************
  5. FUNCTION BOM( dDay )
  6.    IF dDay == NIL
  7.       dDay := DATE()
  8.    ENDIF
  9. RETURN dDay - DAY( dDay ) + 1
  10.  
  11. ***********************************************************************
  12. * FUNCTION EOM( dDay )                                Clipper 5
  13. * Return the last date of the month
  14. ***********************************************************************
  15. FUNCTION EOM( dDay )
  16.    LOCAL dBump
  17.    IF dDay == NIL
  18.       dDay := DATE()
  19.    ENDIF
  20.    dBump := dDay + 35 - DAY( dDay )          // Somewhere in next month
  21. RETURN dBump - DAY( dBump )
  22.