Как найти дату первого дня недели с учетом любого диапазона дат этой недели в vb6

Как мне найти дату первого дня недели по любой дате текущей недели в vb6 или классическом asp?