VFP 愛用者社區

eather · 註冊時間: 2004-04-10 文章: 1 第 1 樓

如何將欄位型態為文字而非日期格式之數字,加上一固定值,報表列印時,將該值轉換為日期???[/img]

syntech · 發表於: 星期二九月 21, 2004 11:08 am 文章主題:

CTOD(substr('20040728',1,4)+"/"+substr('20040728',5,2)+"/"+substr('20040728',7,2))+5

其中可能有陷阱,等你發現.... Smile

KKKLYNN · 註冊時間: 2004-09-17 文章: 357 第 3 樓

注意最後的字串型轉數字型,還有整數化的處理,然後再轉回字串,再結合....
但為何原設定為字串型態(設定為日期就簡單多了,直接加數字就好)
我也是初學者,當初系統發展時也吃了上述的苦
設定字串要轉日期比較麻煩,日期轉字串就簡單多了 DTOS()
若格式上就用格式的轉換來處理
以上希望對您有幫助

bin1x · 註冊時間: 2004-08-27 文章: 462 第 4 樓

要考慮的狀況有
1.2月28 不是閏年
2.2月29 閏年
3.7月31 單月31 雙月30
4.8月31 之後單月30 雙月31
有自己寫好函數來用比較好

garfield · 發表於: 星期二九月 21, 2004 11:27 pm 文章主題:

ctod( tran('20040728' ,'@R 9999/99/99')) + 5

LKH · 發表於: 星期二九月 21, 2004 11:45 pm 文章主題:

朱育興 · 發表於: 星期二九月 21, 2004 11:56 pm 文章主題:

執行 ctod( tran('20040728' ,'@R 9999/99/99')) + 5 這句需注意在執行前其必需

SET DATE YMD

否則答案會是空日期

garfield · 發表於: 星期三九月 22, 2004 12:51 am 文章主題:

育興兄, 你都把 syntech, 所提到的"其中可能有陷阱"都指出來了. Wink

朱育興 · 發表於: 星期三九月 22, 2004 1:33 am 文章主題:

喔！我還真多嘴，看到 LKH 的回答就忍不住提醒他一聲。

LKH · 發表於: 星期三九月 22, 2004 11:00 am 文章主題:

yoncen · 註冊時間: 2005-08-29 文章: 33 第 11 樓

'@R ^9999/99/99',加個^即可。不需要set date ymd

215001 · 註冊時間: 2003-06-11 文章: 389 第 12 樓

或改用
xdate='20040728'
? DATE( VAL(left(xdate,4)),VAL(substr(xdate,5,2)),VAL(substr(xdate,7,2)) )+5

lygcw9603 · 註冊時間: 2011-12-25 文章: 127 第 13 樓

? CTOD(TRANSFORM(VAL("20040728"), "@D")) + 5