關於德爾福輸入年、月、日要求輸出周，緊急!!!!

function getweek: string;

varmytime: systemtime;

begingetlocaltime(mytime);

case of

0: result := '星期日';

1: result := '星期一';

2: result := '星期二';

3: result := '星期三';

4: result := '星期四';

5: result := '星期五';

6: result := '星期六';

end;end;

這個函式對於原生函式來說非常簡單。

這個很簡單，去CSDN查一下。

uses dateutils;

dayoftheweek 函式，該函式返回指定的 tdatetime 變數作為星期幾，返回值範圍為 1 到 7，Monday 為第一天。

1 加上時間控制。

2. 新增標籤。

3. 點選時間控制項進入：

procedure : tobject);

formatdatetime('yyyy dddd tt ', now);

end;

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

2. 在預設專案的 form1 表單中，放置乙個 edit1 控制項和兩個按鈕控制項，並設定它們的 captain 屬性，如下所示：open 和 modify time。

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;