forum.clarionlife.net

Код: Выделить всё

thatdate = date(day(thisdate), month(thisdate) - x, year(thisdate))

Код: Выделить всё

thatdate = date(month(thisdate) - x, day(thisdate), year(thisdate))

Код: Выделить всё

thatdate = date(-5, 1, 2018)

Код: Выделить всё

date(15, 1, 2017)

Код: Выделить всё

            PROGRAM
  
TDateAdd    ITEMIZE,PRE(DateAdd)
YEAR          EQUATE
MONTH         EQUATE
DAY           EQUATE
!HOUR          EQUATE    
!MINUTE        EQUATE
!SECOND        EQUATE
!MILLISECOND   EQUATE           
            END

TDate       GROUP,TYPE
Day           LONG
Month         LONG
Year          LONG
            END  
  
            MAP
              DateAdd(BYTE DatePart, LONG Number, <LONG Date>), LONG
            END
  
  CODE
  MESSAGE(FORMAT(DateAdd(DateAdd:YEAR,1),@D06b))
  MESSAGE(FORMAT(DateAdd(DateAdd:MONTH,-42),@D06b))
  MESSAGE(FORMAT(DateAdd(DateAdd:DAY,+90),@D06b))
  MESSAGE(FORMAT(DateAdd(DateAdd:MONTH,1,DATE(1,30,2017)),@D06b))
    
DateAdd     PROCEDURE(BYTE DatePart, LONG Number, <LONG Date>)!, LONG
Result      LONG
InDate      GROUP(TDate).  
  CODE
  IF OMITTED(3)
    Result = TODAY()
  ELSE
    Result = Date  
  END  
  InDate.Day = DAY(Result)
  InDate.Month = MONTH(Result)
  InDate.Year = YEAR(Result)
  CASE DatePart
  OF DateAdd:YEAR
    Result = DATE(InDate.Month,InDate.Day,InDate.Year+Number)
  OF DateAdd:MONTH
    Off# = ABS(Number)%12
    IF Number > 0
      InDate.Month += Off#
      InDate.Year += ROUND(ABS(Number)/12,1)
    ELSE
      InDate.Month += -Off#
      InDate.Year += -ROUND(ABS(Number)/12,1)
    END
    Result = DATE(InDate.Month,InDate.Day,InDate.Year)
  OF DateAdd:DAY
    Result += Number
  END
  RETURN Result
  

Код: Выделить всё

MESSAGE(FORMAT(DateAdd(DateAdd:MONTH,1,DATE(1,30,2017)),@D06b))