SMART-LAB
Новый дизайн
Мы делаем деньги на бирже
Информация
Блог им. prodik
Получить дату пятницы qpile
- 27 апреля 2015, 14:13
- |
Как грамотно получить дату пятницы в qpile и вообще декремент дней(то есть дату предыдущего дня).
Если понедельник будет 1 или 2 числом месяца, то Day_Prev=Day-3 не прокатит.
' Декремент даты на 1
Если понедельник будет 1 или 2 числом месяца, то Day_Prev=Day-3 не прокатит.
' Декремент даты на 1
FUNC PrevDate(DATE)
YEAR_=SUBSTR (DATE, 0,4)
MONTH_=SUBSTR (DATE, 4,2)
DAY_=SUBSTR (DATE, 6,2)-1
IF DAY_<1
DAY_=31
MONTH_=MONTH_-1
IF MONTH_<1
MONTH_=12
YEAR_=YEAR_-1
END IF
END IF
result=100*(100*YEAR_ +MONTH_) +DAY_
END FUNC
Что нужно дополнить? Я отталкивался сначала от того, что если сегодня понедельник, то вычитать -3 дня будет пятница, но по вышесказанному не получится, а хранить дату пятницы в файле что-то не особо хочется, нужно чтобы кодом получало. Спасибо за граммотные ответы.
и при чём тут пятница )))))
а ещё бывают праздники )))