//==================================================================== // 函數: gf_firstday() //-------------------------------------------------------------------- // 描述:返回某個月的第一天 //-------------------------------------------------------------------- // 參數:日期（字符型，格式YYYYMM或者YYYYMMDD） //-------------------------------------------------------------------- // 返回: 正確時返回輸入日期所在月份的第一天，否則返回error //-------------------------------------------------------------------- // 作者: 日期: 2010年01月04日 //==================================================================== string ls_return ls_return="error" if len(as_yearmon)=8 thenls_return=mid(as_yearmon,1,6)+"01" elseif len(as_yearmon)=6 thenls_return=as_yearmon+"01" end if if ls_return='error' or isdate(mid(ls_return,1,4)+"-"+mid(ls_return,5,2)+"-"+mid(ls_return,7,2))=false thenmessagebox("提示","輸入值不符合日期規范") end if return ls_return global type gf_day_lastday from function_object end typeforward prototypes global function string gf_day_lastday (string as_yearmon) end prototypesglobal function string gf_day_lastday (string as_yearmon);//==================================================================== // 函數: gf_lastday() //-------------------------------------------------------------------- // 描述:返回某個月的最后一天 //-------------------------------------------------------------------- // 參數:日期（字符型，格式YYYYMM或者YYYYMMDD） //-------------------------------------------------------------------- // 返回: 正確時返回輸入日期所在月份的最后一天，否則返回error //-------------------------------------------------------------------- //====================================================================string ls_return string ls_year,ls_month date ld_date ls_return="error" if len(as_yearmon)=8 and isdate(mid(as_yearmon,1,4)+"-"+mid(as_yearmon,5,2)+"-"+mid(as_yearmon,7,2))=false then elseif len(as_yearmon)=6 and isdate(mid(as_yearmon,1,4)+"-"+mid(as_yearmon,5,2)+"-01")=false then elsels_return="ok" end if if ls_return='error' thenreturn ls_return end if ls_year=mid(as_yearmon,1,4) ls_month=mid(as_yearmon,5,2) if ls_month='12' thenls_year=string(integer(ls_year)+1)ls_month='01' elsels_month=string(integer(ls_month)+1) end if ld_date=RelativeDate(Date(ls_year+'-'+ls_month+'-01'),-1) ls_return=string(ld_date,"YYYYMMDD") return ls_return end function global type gf_day_afterday from function_object end typeforward prototypes global function long gf_day_afterday (string as_a17s, string as_a17e) end prototypes global function long gf_day_afterday (string as_a17s, string as_a17e);//==================================================================== // 函數: gf_day_afterday() //-------------------------------------------------------------------- // 描述:求出兩個日期之間的天數 //-------------------------------------------------------------------- // 參數:起始日期（字符型,格式YYYYMMDD）、截止日期（字符型,格式YYYYMMDD） //-------------------------------------------------------------------- // 返回: 整型 //-------------------------------------------------------------------- //==================================================================== long ll_return if len(as_a17s)<>8 or len(as_a17e)<>8 or isdate(as_a17s) or isdate(as_a17e) then ll_return=-1 elsell_return=DaysAfter(date(left(as_a17s,4)+'-'+mid(as_a17s,5,2)+'-'+mid(as_a17s,7,2)),date(left(as_a17e,4)+'-'+mid(as_a17e,5,2)+'-'+mid(as_a17e,7,2))) end if return ll_return end function global type gf_day_newdate from function_object end typeforward prototypes global function string gf_day_newdate (string as_rq, integer al_ts) end prototypesglobal function string gf_day_newdate (string as_rq, integer al_ts);//==================================================================== // 函數: gf_newdate() //-------------------------------------------------------------------- // 描述:根據字符型日期格式和加減天數返回新的字符型日期格式 //-------------------------------------------------------------------- // 參數:日期（as_rq字符型,格式YYYYMMDD）,天數(al_ts整型) //-------------------------------------------------------------------- // 返回: 正確時返回新的日期，字符型，格式YYYYMMDD //-------------------------------------------------------------------- // 作者: 日期: 2010年01月05日 //-------------------------------------------------------------------- //==================================================================== /* --取當天 select CONVERT(varchar(10),GETDATE(),112) --取昨天 select convert(varchar(10),getdate()-1,112) */ string ls_return ls_return="error" if len(as_rq)<>8 or isdate(mid(as_rq,1,4)+"-"+mid(as_rq,5,2)+"-"+mid(as_rq,7,2))=false thenmessagebox("提示","輸入值不符合日期規范")return ls_return end if ls_return=string(RelativeDate(Date(mid(as_rq,1,4)+"-"+mid(as_rq,5,2)+"-"+mid(as_rq,7,2)),al_ts),"YYYYMMDD") return ls_return end function

?

總結

以上是生活随笔為你收集整理的pb 日期相关函数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。