*  Call passing the day number of week to test for and current date
*  Returns:  1 after date
*            2 before date
*            3 equals date
*            0 indeterminate (error)

FUNCTION LastDaySelect
LPARAMETERS pnLastDay,pdCurDate
LOCAL ldLastDayofMonth, lnLastDay, lnDate
ldLastDayofMonth = GOMONTH(DATE(YEAR(pdCurDate),MONTH(pdCurDate),1),1) - 1
lnLastDay = DOW(ldLastDayofMonth)
IF (lnLastDay - pnLastDay) > 0
  ldTestDayofMonth = ldLastDayofMonth - (lnLastDay - pnLastDay)
ELSE
  ldTestDayofMonth = ldLastDayofMonth - (pnLastDay + lnLastDay) + 1
ENDIF
DO CASE
  CASE ldTestDayofMonth < pdCurDate
    lnDate = 1
  CASE ldTestDayofMonth > pdCurDate
    lnDate = 2
  CASE ldTestDayofMonth = pdCurDate
    lnDate = 3
  OTHERWISE
    lnDate = 0
ENDCASE
RETURN lnDate
ENDFUNC