時間函數之weekofmonth

說明：	此函數傳回每個月的第幾個星期，參數要填入yyyyMMdd格式的日期 傳回1到6的整數
語法：	WeekOfMonth(MyDateTime)
輸入：	日期〈數值〉：yyyyMMdd日期
輸出：	數值