第壹個月份為 0 ，依次往後數
星期的第壹天為星期日，依次往後數
用
Date - (Weekday(Date) - 1)
這個表達式就可以算出來了
註：
weekday()是返回當前的星期數
但是在VB中星期與數值的對應關系為：
日 壹 二 三 四 五 六
1 2 3 4 5 6 7