最近有乙個計算周的需要，看了網上現成的**，不太合適，只好自己動手了。
預設把該年第乙個星期一作為第一周的開始。
'計算某年第一周開始日期
function firstday(inputyear)
for i=cdate(inputyear&"-1-1") to cdate(inputyear&"-1-7")
if weekday(i)=2 then
firstday=i
exit for
end if
next
end function
'計算輸入日期是該年第幾周的函式
function calcweekno(inputdate)
toyear=year(inputdate)
fday=firstday(toyear)
if datediff("d",fday,inputdate)<0 then
fday=firstday(toyear-1)
end if
'calcweekno=fday
daynum=datediff("d",fday,inputdate)
calcweekno=int(daynum/7)+1
end function
'根據週數和年份，計算該週第一天
function getfst(inputyear,weekno)
fday=firstday(inputyear)
getfst=dateadd("d",(weekno-1)*7,fday)
end function
ASP自定義函式集
for dig 1 to len utfstr 如果utf8編碼文字以 開頭則進行轉換 if mid utfstr,dig,1 then utf8編碼文字大於8則轉換為漢字 if len utfstr dig 8 then gbstr gbstr convchinese mid utfstr,dig...
自定義函式 Excel之自定義函式
在excel中，當系統函式不能滿足我們的需求時候，我們可以使用vba自定義函式，如抓取網頁資料，翻譯詞彙，手機號歸屬地查詢等。下面將介紹2個自定義函式，idymd函式 身份證年月日性別 通過身份證號，返回性別，出生年月日。語法 idymd id 引數 id，身份證號，預設身份證長度18位。vba 如...
自定義函式
使用者自定義函式是sqlserver的資料庫物件，他不能應用於一系列改變資料庫狀態的操作。但它可以像系統函式那樣在查詢中或儲存過程中等中的程式段中使用。也可以像儲存過程一樣通過execute命令來執行，使用者自定義函式中儲存了transact sql可以返回一定的值。在sqlserver中根據函式返...