Сдвиг даты в прошлое

[kreator]

Нужно вычислять дату сколько-то месяцев назад. Чтобы не изобретать велосипед, не поделится кто-нибудь красивой функцией? На Firebird'е это занимает одну строчку, но сервак дёргать не хочется.

[Дед Пахом]

Можно начать с такой формулы:

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

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

[Admin]

Ага, попался!
thatdate = date(day(thisdate), month(thisdate) - x, year(thisdate))

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

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

[Дед Пахом]

Ага, попался!

Всё время забываю, что тут совершенно идиотская последовательность аргументов.

[Admin]

совершенно идиотская последовательность аргументов.

Есть такое.

[kreator]

К сожалению SV не предусмотрело отрицательные значения месяца и даты. Хотя могли бы. Поэтому и возник вопрос. Может у кого-то работает

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

thatdate = date(-5, 1, 2018)

?

[Admin]

date(-5, 1, 2018)

И что должно получиться?
-5 от какого месяца?
Если от текущего то зачем год и день?
А как +5 задать?
Напишите уже свой класс/функцию для работы с датами.

[Игорь Столяров]

thatdate = date(-5, 1, 2018)

Может быть дату несколько месяцев назад от ТЕКУЩЕЙ ?

Тогда: date(Month(Today()) - 5, Day(Today()), Year(Day(Today())))

[kreator]

И что должно получиться?
-5 от какого месяца?

А что получается при этом:

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

date(15, 1, 2017)

?
Хочу, чтобы и отрицательные числа отрабатывались.
Пишу свою функцию.
Firebird не парится по этому поводу, к примеру.

[Дед Пахом]

The month and day parameters do allow positive out-of-range values

[Admin]

Вот на скорую руку

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

            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
  

[Admin]

Ток забыл при смене месяца число сдвинуть!
Или не нужно. Непонятно что в этом случае делать, когда 30 февраля типа. Сдвигать вперед на разницу дней?

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

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

[Admin]

Хехе. Кларион сам вернул 2 марта в таком случае

[Дед Пахом]

Хехе. Кларион сам вернул 2 марта в таком случае

.NET-овский класс DateTime в этом случае возвращает 28.02.2017

[Admin]

в этом случае возвращает 28.02.2017

Ну исправить недолго если нужно.