VFP 愛用者社區

[小桑•無痕]

我記得網站裡面好像已經有類似的東西了...狼人...你下次可以先搜尋看看...
-----------------------------------------------------------------------------


1.如何返回指定日期的下一個月的最后一天
因為:下一個月的最後一天 = 下下一個月的第一天 - 1
所以:


? Test1(CTOD('01/30/04'))

FUNCTION Test1(dtDATE)
nYEAR = YEAR(dtDATE)
nMonth = MONTH(dtDATE) + 2
IF nMonth > 12
nYEAR = nYEAR + 1
nMonth = nMonth - 12
ENDIF
RETURN(DATE(nYear,nMonth,1)-1)

2.下個月對應該日
做法：取得下月的年/月 + 該日期的日
注意：31天/30天/29天/28天的問題

? Test2(CTOD('01/30/04'))

FUNCTION Test2(dtDATE)
LOCAL dtDATE2
nYEAR = YEAR(dtDATE)
nMonth = MONTH(dtDATE) + 1
nDay = DAY(dtDATE)
IF nMonth > 12
nYEAR = nYEAR + 1
nMonth = nMonth - 12
ENDIF

********* 以下三種方式...請自行選擇使用

**** 若日期不存在，會傳回 / /
dtDATE2 = DATE(nYear,nMonth,nDay)
**** 若日期不存在，要傳回該月最後一天,請將下面 && 去掉
&&dtDATE2 = DATE(nYear + IIF(nMonth=12,1,0),IIF(nMonth=12,1,nMonth+1),1)-1
**** 若日期不存在，要將多餘的日期加到下月,請將下面 && 去掉
&&dtDATE2 = DATE(nYear,nMonth,1) + nDay
RETURN(dtDATE2)

--------------------------------------------------------------
大約是這樣...我沒測試過...狼人..你斟酌修改使用
試得如何...記得告訴我
----------------------------------------------------------

上一篇有問題的..我刪不掉...請版主刪除....謝謝...

[朱育興]

M_dSpecDate 代表指定日期
下一個月的最后一天 GOMONTH(M_dSpecDate-DAY(M_dSpecDate)+1,2)-1
下個月對應的日期 GOMONTH(M_dSpecDate,1)

[小桑•無痕]

原來有這麼好用的函數啊.....
早知道多念點書...就不用這麼辛苦的土法煉鋼了....

[狼人]

多謝!!!!