請問各位大大:
我想把DateToStr(Date)傳回的值例如 97/02/27改成 097/02/27
因為整個專案中用很多DateToStr, 不想一個一個改,
可否在DateToStr()傳回值前先把它改掉?

sure.
press F1, check out Format function.
===================引 用 s563348 文 章===================
請問各位大大:
我想把DateToStr(Date)傳回的值例如 97/02/27改成 097/02/27
因為整個專案中用很多DateToStr, 不想一個一個改,
可否在DateToStr()傳回值前先把它改掉?

請問是這樣嗎?
DecodeDate(Date, Year, Month, Day);
Edit1.Text := Format('=/-/-',[Year-1911,Month,Day]);

Please try and error, then you'll know !
That's the way of programming.
===================引 用 s563348 文 章===================
請問是這樣嗎?
DecodeDate(Date, Year, Month, Day);
Edit1.Text := Format('=/-/-',[Year-1911,Month,Day]);

Check out online help more carefully and patiently, then you'll know why.

Edit1.Text := Format('%.03d/%.02d/%.02d',[Year-1911,Month,Day]);
===================引 用 Stallion 文 章===================
Please try and error, then you'll know !
That's the way of programming.
===================引 用 s563348 文 章===================
請問是這樣嗎?
DecodeDate(Date, Year, Month, Day);
Edit1.Text := Format('=/-/-',[Year-1911,Month,Day]);

感謝您, 輸出結果對了
再請問一下:有辦法直接去改DateToStr()的function嗎?
因為它放在...\delphi5\source\rtl\sys\sysutil.pas, 我改了....可沒作用

您好
可以試試看用FORMADATETIME('eeemmdd', Date)
如果是在民國一百年以前會是六碼所以要自己處理前面加上一個0，如果是一百年以後就會顯示七碼！
當然 FormatDateTime裡面還有很多用法可以按F1去試試看喔!!

------
Pillar Wang

press F1, get the subject "date/time formatting variables" and you'll get it.

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

感謝各位大大:
我的shortdateformate='eeee/MM/dd', MaskEdit1.editmask = '!999/99/99;1; '
輸出的結果是 ' 97/02/27', 97年前面都會空一格, 操作者常常會忘了它的存在, 就直接輸入日期
造成日期格式錯誤, 所以才會想要自動在最前面填入0,
因為要每隻有用到DateToStr的程式都要去改, 才會偷懶想看可不可以直接改DateToStr() function
目前支票到期日已經到100年了, 所以不能等到真的100年才來改

Another way around is to use "find and replace" to replace "DateToStr" to your new function name in the source code.
This new function should use the same arguments as DateToStr uses.

===================引 用 s563348 文 章===================
感謝各位大大:
我的shortdateformate='eeee/MM/dd', MaskEdit1.editmask = '!999/99/99;1; '
輸出的結果是 ' 97/02/27', 97年前面都會空一格, 操作者常常會忘了它的存在, 就直接輸入日期
造成日期格式錯誤, 所以才會想要自動在最前面填入0,
因為要每隻有用到DateToStr的程式都要去改, 才會偷懶想看可不可以直接改DateToStr() function
目前支票到期日已經到100年了, 所以不能等到真的100年才來改

------
===波士頓夜未眠===
What a wonderful world!!
Jazz up the world with jazz!!
==================

When I am not programming...
you can find me here:
http://www.holy-war.de/EN/World3/bin/?advertiser=63190

不要那麼死腦筋, 一直想要去改原始的function, 何不自已創建一個 myDatetoStr , 程式中全部改用 myDatetoStr 就好了唄!
===================引 用 s563348 文 章===================
感謝您, 輸出結果對了
再請問一下:有辦法直接去改DateToStr()的function嗎?
因為它放在...\delphi5\source\rtl\sys\sysutil.pas, 我改了....可沒作用

豬寶寶公司的做法
uses your_public;
裡面的寫法

unit your_public;
function strtoint(_STR:string):Integer;
begin
Result:=StrToIntDef(_STR,0);
end;


直接蓋掉原本的strtoint

===================引 用 s563348 文 章===================
請問各位大大:
我想把DateToStr(Date)傳回的值例如 97/02/27改成 097/02/27
因為整個專案中用很多DateToStr, 不想一個一個改,
可否在DateToStr()傳回值前先把它改掉?