VFP 愛用者社區

[Ruey]

**tdate--傳入20030413,查詢後一天30號
function getlastdate(tdate)


return date(year(tdate),month(tdate)+1,1)-1
end function

[garfield]

我是用寫個FUNC來用
********************************
Func monthdate &&--傳回某月份的第一天或最後一天
Lpara MDATE , mkind
*mkind=1 本月第一天
* =9 本月最後一天 &&--內定值
* =11 下月第一天
* =19 下月最後一天
* =-1 上月第一天
* =-9 上月最後一天
If type('mkind')#'N'
mkind=9
Endif
Local mret
Do case
Case mkind= 1
mret = MDATE - day(MDATE)+1 &&--本月第一天
Case mkind= -9
mret = monthdate( mdate,1)-1 &&--上月最後一天
Case mkind= -1
mret = monthdate(monthdate( mdate,1)-1 ,1) &&--上月第一天
Case mkind= 11
mret = monthdate( monthdate(MDATE,1)+31 , 1) &&--下月第一天
Case mkind= 19
mret = monthdate( monthdate(MDATE,1)+31 , 9) &&--下月最後一天
Other
mret = monthdate( MDATE ,1)+31 &&--下個月的某一天
mret = mret - day( mret) &&--本月底
Endcase
Return mret

[aslyn]

簡易的月底日檢測程式,供參考如下:

* 參數:dDate :欲求月底日的日期(日期型態)

* 傳回:日期型態的月底日期

lparameter dDate

Local nYY,nMM,cYY,cMM,cDD,cDate,Ret_Date

nYY=year(dDate)
nMM=month(dDate) + 1
cDD="1"
If nMM > 12
nYY= nYY + 1
nMM=1
Endif
cYY=alltrim(str(nYY))
cMM=alltrim(str(nMM))
cDate=cYY + "/" + cMM + "/" + cDD
Ret_Date=ctod(cDate) - 1

Return Ret_Date

[朱育興]

若只是要得知某月的最後一天，應該是不需要使用到自定函數吧
* M_dTestDate --> 要測試的日期
? GOMONTH(DATE(YEAR(M_dTestDate),MONTH(M_dTestDate),1),1)-1

[garfield]

原來古老的函數也有新參數, 都忘了看HELP

[奔跑的愛情]

好！谢谢

[lukapp]

ruey: 你的 func 好像在 12月+1 出 error
function getlastdate(tdate)
return date(year(tdate),month(tdate)+1,1)-1
end function
**************************************************
FUNC LASTDAY(xD)
retu day(gomonth( date( year(xd) , month(xd) , 1 ) , 1 ) -1)

[Ruey]

[張得子]

我習慣日期採用字元型態所以我也寫了一支function，取得每月最後一天。
************************
*取每月最一天
************************
FUNCTION dayend_p(p_para)
&&p_para 字元年月 例如西元2003年9月,則p_para=”200309”，民國則p_para=”09209”
&& 僅適用set date to Taiwan & set date to ymd 格式

LOCAL m_mon,m_pos,m_year
if set("date")="TAIWAN"
m_pos=5
else && set("date")="YMD"
m_pos=6
endif
m_mon=right(p_para,2)
m_year=VAL(LEFT(p_para,m_pos-2))
DO CASE
CASE INLIST(m_mon,"01","03","05","07","08","10","12")
m_day="31"
CASE INLIST(m_mon,"04","06","09","11")
m_day="30"
CASE m_mon="02"
if mod(m_year,4)=0 && 是否潤年
if mod(m_year,100)<>0
m_day="29"
else
if mod(m_year,400)=0
m_day="29"
else
m_day="28"
endif
endif
else
m_day="28"
endif
endcase
RETURN p_para+m_day &&字元型態年月日

[朱育興]

FUNCTION dayend_p 這個太囉嗦了，建議不要用

[nelsonchuang]

以前很愚蠢的把日期加加減減,或弄成函式,直到最近看到了別人用asp.net
寫的東西,我不得不說,我的見識到目前為止也長了一點
我又把它轉換成自己的,
a=date()
b=DAY(GOMONTH(a,1)-DAY(a)) &&取得當月所有總天數
c=GOMONTH(a,1)-DAY(a) &&取得當月最後一天

[garfield]

[impotence]

fdate : 要測試的日期
GOMONTH(fdate,1)-DAY(GOMONTH(fdate,1))

[nelsonchuang]

[Le1015]

真正完全沒問題的函數

Function EndDate
LPARAMETER O_Date
Retrun GoMonth(O_Date-Day(O_Date)+1,1)-1