DayOfMonth無法使用 |
|
尚未結案
|
|
ooctiger
一般會員   發表：25 回覆：46 積分：14 註冊：2002-07-08 發送簡訊給我 |
函數 DayOfMonth的用法 [HELP] 如下 Day of Month for the Indy timestamp. property DayOfMonth: Integer; Description DayOfMonth is a read-only Integer property that contains the Day of the Month for the Indy timestamp. 以下是我的用法有出現錯誤
錯誤訊息是 Undeclared identifier: 'DayOfMonth'
procedure TFmMainSchedule.Button1Click(Sender: TObject);
var
E_Day:string;
begin
E_Day:=inttostr(DayofMonth(Date));
Showmessage(E_Day);
end;
請各位幫忙看看哪裡出錯了 Thank You !
|
|
Justmade
版主  發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
|
|
chiehmin
高階會員 發表：13 回覆：134 積分：134 註冊：2002-05-23 發送簡訊給我 |
放上IdDateTimeStamp元件囉...
procedure TForm1.Button1Click(Sender: TObject);
var
E_Day:string;
begin
E_Day:=inttostr(IdDateTimeStamp1.DayOfMonth);
Showmessage(E_Day);
end;
======================================================
或是DayOfTheMonth(Date)傳回當月的天數...
|
|
ooctiger
一般會員 發表：25 回覆：46 積分：14 註冊：2002-07-08 發送簡訊給我 |
|
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
|
|
chiehmin
高階會員 發表：13 回覆：134 積分：134 註冊：2002-05-23 發送簡訊給我 |
|
|
ooctiger
一般會員 發表：25 回覆：46 積分：14 註冊：2002-07-08 發送簡訊給我 |
Indy9已安裝ok !
我放上IdDateTimeStamp元件了
procedure TForm1.Button1Click(Sender: TObject);
var
E_Day:string;
begin
E_Day:=inttostr(IdDateTimeStamp1.DayOfMonth);
Showmessage(E_Day);
end; 可是show出的結果卻是 1 [HELP] Day of Month for the Indy timestamp. property DayOfMonth: Integer; Description DayOfMonth is a read-only Integer property that contains the Day of the Month for the Indy timestamp. 根據Help應該出現31才對, 執行時PC的日期是2003/03/29 請問我做錯了什麼 ? Thank You !
|
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
那個元件基本上不是這樣用的，而是針對互聯網上的一些 TimeStamp 處理... 若你只是想求某月的日數，不如自建一個 function 罷 :
function DaysOfMonth(DateTime : TDateTime) : Integer;
var Year, Month, Day : word;
begin
DecodeDate(DateTime,Year,Month,Day);
Case Month of
1,3,5,7,8,10,12 :
result := 31;
4,6,9,11 :
result := 30;
2 :
if (Year mod 4) = 0 then
Result:=29
else
Result:=28;
else
Result:=0;
end;
end;
使用實例 :
ShowMessage(IntToStr(DaysOfMonth(Now))); // 今天則顯示 31 你也可放一個 TDateTimePicker 然後
procedure TFmMainSchedule.Button1Click(Sender: TObject); begin ShowMessage(IntToStr(DaysOfMonth(DateTimePicker1.DateTime))); end;再試試選 2003年2月份 (28) 2004年2月份 (29) 等等 |
|
hahalin
版主  發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
發表時間：2003-03-28 16:01:15
IP:61.219.xxx.xxx 未訂閱
系統時間：2024-05-04 5:16:45
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |