怎樣計算一個日期是星期幾? |
|
尚未結案
|
|
chrislao
初階會員   發表：86 回覆：69 積分：36 註冊：2002-12-28 發送簡訊給我 |
|
|
azurecloud
中階會員 發表：52 回覆：108 積分：92 註冊：2003-09-04 發送簡訊給我 |
Hi, chrislao 您好： 拉個 DateTimePicker1 元件，在 onclick 中加入以下程式碼： procedure TForm1.DateTimePicker1Click(Sender: TObject);
var s : string;
d : tdatetime;
begin
// uses DateUtils
s := datetostr(DateTimePicker1.DateTime);
// 取出這一週的第一天
// startoftheweek(strtodate('2003/12/13'));
d := startoftheweek(DateTimePicker1.DateTime); //Ceil是將小數點無條件進位，必須uses Math才可使用
s := IntToStr(Ceil(DateTimePicker1.Date - d)); case strtoint(s) of
1: showmessage('這一天是星期一');
2: showmessage('這一天是星期二');
3: showmessage('這一天是星期三');
4: showmessage('這一天是星期四');
5: showmessage('這一天是星期五');
6: showmessage('這一天是星期六');
7: showmessage('這一天是星期日');
end;
end; 希望幫的上忙 ========================
我要努力向上======================== |
|
Mickey
版主 發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
發表時間：2003-12-13 21:08:28
IP:202.175.xxx.xxx 未訂閱
系統時間：2024-04-25 21:58:27
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |