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

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