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

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