常用SQL語句日期獲取函數

function getlastEndday(tDate)'獲得上月最后一天
dim dt1,dt2
dt1 = CDate(Year(tDate) & "-" & Month(tDate) & "-1")'得到本月第一天
getlastEndday = DateAdd("d",-1,dt1) ' 得到下個月第一天
end function

function getNextFirstday(tDate)'獲得下月第一天
dim dt1,dt2
dt1 = CDate(Year(tDate) & "-" & Month(tDate) & "-1")'得到本月第一天
getNextFirstday = DateAdd("m",1,dt1) ' 得到下個月第一天
end function


function getlastlastEndday(tDate)'獲得上上月最后一天
dim dt1,dt2
dt1 = CDate(Year(tDate) & "-" & Month(tDate) & "-1")'得到本月第一天
getlastlastEndday = getlastEndday(DateAdd("m",-1,dt1))
end function

function getlastFirstday(tDate)'獲得上月第一天
dim dt1,dt2
dt1 = CDate(Year(tDate) & "-" & Month(tDate) & "-1")'得到本月第一天
getlastFirstday = DateAdd("m",-1,dt1) '獲得上月第一天
end function

function getthisFirstday(tDate)'獲得本月第一天
getthisFirstday = CDate(Year(tDate) & "-" & Month(tDate) & "-1")'得到本月第一天
end function