FUNCTION date_forum_isx  && функция с форума. Вероятно возвращает ДАТУ последнего дня месяца DATE(). Можно указать (1N) - смещение в месяцах от DATE()  
  PARAMETERS lnMonthDelta    
  ** Определение даты последнего дня предидущих или будущих месяцев    
        
  * Дельта помесячная, то есть на сколько месяцев назад или вперед от текущей даты нужно сместиться в вычислении    
  * Если нужно узнать дату в текущем месяце то = 0 (по умолчанию)    
    IF EMPTY(m.lnMonthDelta)    
        m.lnMonthDelta = 0    
    ENDIF     
        
    m.lnYear = YEAR(DATE()) && Текущий год    
    m.lnMonth = MONTH(DATE()) && Текущий месяц    
    m.lnDay = 1 && Всегда первое число месяца    
        
        
   * Проверяем смещение по годам    
      IF ABS(m.lnMonthDelta / 12) >= 1      
          m.lnYearMonth = INT(m.lnMonthDelta / 12)    
          IF  m.lnMonthDelta < 0    
              m.lnMonthDelta = m.lnMonthDelta + (12*ABS(m.lnYearMonth))    
          ELSE     
              m.lnMonthDelta = m.lnMonthDelta - (12*ABS(m.lnYearMonth))    
          ENDIF     
          m.lnYear = m.lnYear + m.lnYearMonth    
      ENDIF    
        
  * Проверяем, смещения помесячно на предидущий год    
    m.lnYearMonth = m.lnMonth + m.lnMonthDelta    
    IF (m.lnYearMonth) <= 0    
        m.lnYear = m.lnYear - 1    
        m.lnMonth = 12 + m.lnYearMonth    
    ENDIF    
        
  * Проверяем, смещения помесячно на следующий год    
    IF (m.lnYearMonth) > 12    
        m.lnYear = m.lnYear + 1    
        m.lnMonth = m.lnYearMonth - 12    
    ENDIF    
        
    m.ldOldMonthMax = GOMONTH(DATE(m.lnYear,m.lnMonth,m.lnDay),1)-DAY(GOMONTH(DATE(m.lnYear,m.lnMonth,m.lnDay),1))    
        
    RETURN m.ldOldMonthMax