如何求出每月第一週星期三的日期 |
尚未結案
|
tomcheng
一般會員 發表:8 回覆:7 積分:3 註冊:2003-09-10 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
將 2003 年每月的第一個週三的日子加在 ListBox1 中.
var i, iWeek: integer; dt: TDateTime; begin for i := 1 to 12 do begin dt := EncodeDate(2003, i, 1); // 先求出每月 1 日的值 iWeek := DayOfWeek(dt); // 再判斷每月 1 日是星期幾 case iWeek of // 依每月 1 日是星期幾的值, 再加幾為星期三 1: dt := dt 3; // Sunday 2: dt := dt 2; // Monday 3: dt := dt 1; // Tuesday 5: dt := dt 6; // Thursday 6: dt := dt 5; // Friday 7: dt := dt 4; // Saturday end; ListBox1.Items.Add(FormatDateTime('YYYY/MM/DD', dt)); end; end;--- 歡迎光臨 KTop 研究院--<-<-<@ 發表人 - hagar 於 2003/09/10 19:48:44 |
tomcheng
一般會員 發表:8 回覆:7 積分:3 註冊:2003-09-10 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |