Set_Year:='200406' S:=LeftStr(Set_Year,4) '/' RightStr(Set_Year,2); 可否有比較便捷Function,如早期dos Tran(set_year,'@R 9999/99') 類似語法 而不用LeftStr(Set_Year,4) '/' RightStr(Set_Year,2); 如此長的寫法

建議您可參考該篇文章，希望對您有幫助 http://delphi.ktop.com.tw/topic.php?topic_id=34183 ========================= 讀萬卷書~不如來K.TOP走一遭 =========================

您好﹗    插個花﹕ Var   S : String; begin   S := '200406'; Insert('/', S, 5); end; //以上紅色處需以S的字串變數來指定﹐如果直接使用'200406'﹐則會出錯 ========================= 大病初愈﹐休養調整中... =========================

------
忻晟

如果日期是臨時取出的，可用 label1.Caption := FormatDateTime('YYYY/MM',Date); JackTasy

------
JackTasy

引言: Set_Year:='200406' S:=LeftStr(Set_Year,4) '/' RightStr(Set_Year,2); 可否有比較便捷Function,如早期dos Tran(set_year,'@R 9999/99') 類似語法 而不用LeftStr(Set_Year,4) '/' RightStr(Set_Year,2); 如此長的寫法

其實這個FUNCTION並不難寫, 既然你可以說出 DBASE 的語法, 表示有一定的 功力, 所以建議你, 不如花一點時間自己開發一個類似的FUNCTION 往後, 你只要呼叫自己的FUNC 就好了, 其實很多在 DBASE, CLIPPER上提供 很好的函式, 在DELPHI中都沒有, 所以你不要太冀望在這裡了~~~~

謝謝各位指導 讓我授意良多