Получить дату пятницы qpile

27 апреля 2015, 14:13
|
Prodik

Как грамотно получить дату пятницы в qpile и вообще декремент дней(то есть дату предыдущего дня).
Если понедельник будет 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 дня будет пятница, но по вышесказанному не получится, а хранить дату пятницы в файле что-то не особо хочется, нужно чтобы кодом получало. Спасибо за граммотные ответы.

9 | ★1

5 комментариев

Пожалуйста )

Scorpi_999

27 апреля 2015, 14:26
Ответить

А вы сами знаете что данная функция делает? )))))
и при чём тут пятница )))))
а ещё бывают праздники )))

sds

27 апреля 2015, 14:36
Ответить

sds, мне необходимо получить данные индикатора предыдущего торгового дня.

Prodik

27 апреля 2015, 14:40
Ответить

Pr0d1k, в каждом языке свои заморочки, если дает 0 то сдвигайте дату дальше, а если дает ту инфу предыдущего рабочего дня чо замарачиваться, всё методом проб и ошибок )))

sds