home *** CD-ROM | disk | FTP | other *** search
/ HomeWare 14 / HOMEWARE14.bin / prog / ks94an.arj / DAYSMON.HDR < prev    next >
Text File  |  1994-04-24  |  826b  |  41 lines
  1. /******************************************************************************
  2.                  The Klipper Library, for CA-Clipper 5.x
  3.         Copyright (c), 1994, Wallace Information Systems Engineering
  4.  
  5. FUNCTION:
  6.  
  7. _DaysInMonth( nMonth, nYear ) --> nDaysInMonth
  8.  
  9. PARAMETERS:
  10.  
  11. nMonth : Month of year to test
  12. nYear  : Year to test
  13.  
  14. SHORT:
  15.  
  16. Return the number of days in any given month, accounting for leap years.
  17.  
  18. DESCRIPTION:
  19.  
  20. _DaysInMonth() returns the number of days in a given month, with proper
  21. respect for leap years.
  22.  
  23. NOTE:
  24.  
  25.  
  26.  
  27. EXAMPLE:
  28.  
  29. t = _DaysInMonth(8,93)
  30. Result: t = 31
  31.  
  32.  
  33. t = _DaysInMonth(2,93)
  34. Result: t = 28
  35.  
  36.  
  37. t = _DaysInMonth(month(ctod('02/01/92')),year(ctod('02/01/92')))
  38. Result: t = 29
  39.  
  40. ******************************************************************************/
  41.