VFP 愛用者社區

小桑‧無痕 · 註冊時間: 2003-07-08 文章: 304 來自: Tainan, Taiwan 第 1 樓

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)

-----------------------------------------------------------
大約是這樣...我沒測試過...狼人..你斟酌修改使用

試得如何...記得告訴我