delphi 如何返回日期的函式

對不起，我一開始不明白你的意思。

function getdate(date:string;addmonths:integer):string ;

vardate1,yy,mm:integer;

resultdata:string;

begindate1:=strtoint(date);

yy:=date1 div 100;

mm:=date1-yy*100;

if mm+1>12 then

beginmm:=1;

inc(yy);

endelse

inc(mm);

result:=format('%4d%.2d',[yy,mm]);

end;

1. 開啟 delphi7 整合開發環境，在 diaglog 面板中將乙個 opendiag1 控制項放到預設專案的 form1 窗體中。

2. 在預設專案的 form1 窗體中，放置乙個 edit1 控制項和兩個按鈕控制項，並設定它們的 captain 屬性如下：開啟和修改時間。

3. 雙擊開啟按鈕，進入onclick事件方式，**如下。

4. 然後雙擊修改時間按鈕，進入onclick事件方法，如下所示。

5. F9執行程式，點選開啟按鈕選擇檔案，選擇C：，然後點選修改時間彈出檔案建立或上次修改的時間。

6、在檔案目錄中找到檔案，比較檔案屬性時間，得到程式一致，時間成功。

寄過來了，請查收。

可以獲得這樣的。

2012-06-18 04：06：43 星期一實際上不需要任何三向空格 幾行 ** 問題 const weeks： array[1..7] of string =

星期日', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');

procedure : tobject);

begin=formatdatetime('yyyyymmmmdddayhhhournnminutesss 秒',now())

end;