如何知道月份的第一日是星期幾? |
|
尚未結案
|
|
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;
參考看看﹗ =========================
我是您的朋友﹐有您真好﹗
=========================
------
忻晟 |
發表時間：2004-12-02 10:53:28
IP:202.82.xxx.xxx 未訂閱
系統時間：2024-07-06 18:09:35
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |