如何知道月份的第一日是星期幾? |
尚未結案
|
tidal
初階會員 發表:93 回覆:32 積分:25 註冊:2003-07-15 發送簡訊給我 |
|
eric039
中階會員 發表:57 回覆:126 積分:51 註冊:2002-11-30 發送簡訊給我 |
|
tonytop
中階會員 發表:6 回覆:114 積分:89 註冊:2003-12-04 發送簡訊給我 |
case DayOfWeek(StrToDate('2004/12/01')) of 1:Label1.Caption:='星期日'; 2:Label1.Caption:='星期一'; 3:Label1.Caption:='星期二'; 4:Label1.Caption:='星期三'; 5:Label1.Caption:='星期四'; 6:Label1.Caption:='星期五'; 7:Label1.Caption:='星期六'; end;我正確的mail:h832214@hotmail.com |
allenchan
資深會員 發表:10 回覆:306 積分:283 註冊:2004-01-06 發送簡訊給我 |
int n = DayOfWeek(TDateTime("2004/11/1")) - 1; n = 0 is Sunday
n = 1 ~ 6 is Monday ~ Saturday Sample (從 Help copy 過來的):
void __fastcall TForm1::Button1Click(TObject *Sender) { char days[7][10] = {"Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" }; TDateTime dtDate = StrToDate(Edit1->Text); ShowMessage(Edit1->Text AnsiString(" is a ") days[dtDate.DayOfWeek() - 1]); }發表人 - allenchan 於 2004/12/02 12:23:15 |
jimmy_wei
高階會員 發表:9 回覆:176 積分:147 註冊:2003-08-28 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗
方法一﹕ Uses DateUtils begin ShowMessage('星期' IntToStr(DayOfWeek(StartOfTheMonth(Now))-1)); end; 方法二﹕ Uses DateUtils begin ShowMessage('星期' IntToStr(DayOfWeek(StartOfAMonth(2004, 12))-1)); //StartOfAMonth中的參數一代表年份﹐參數二代表月份 end;參考看看﹗ ========================= 我是您的朋友﹐有您真好﹗ =========================
------
忻晟 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |