請問一下有關日期的問題 |
|
尚未結案
|
|
a23161
一般會員   發表：2 回覆：2 積分：0 註冊：2005-01-29 發送簡訊給我 |
|
|
a6475
高階會員  發表：67 回覆：230 積分：154 註冊：2002-09-15 發送簡訊給我 |
引言: 若想用edit2.text所輸入的日期 30天後再與當天的日期相比較，如何做呢?因為一個是字串一個是日期，型態不符，希望指導，再此先謝謝最快的方法就是用 StrToDate的函數 StrToDateDef(Edit1.Text,Date()); 或 StrToDate(Edit1.Text); 不過上過述的方式，必須是 yyyy/mm/dd的格式。 不然可以自己分析字串在用 EncodeDate，自行組合 Ex: var y,m,d : integer; begin //edit1.text 格式必須為yyyymmdd EX: 20040129 y := StrToInt(copy(edit1.Text,1,4)); m := StrToInt(copy(edit1.Text,5,2)); d := StrToInt(copy(edit1.Text,8,2)); showmessage(DateToStr(EncodeDate(y,m,d)));..-----------βλμε------------.. ◎Ｏｏ月夜 光明 藍更愁ｏＯ◎ 藍調月光城v4：http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調．月光)：http://mypaper2.ttimes.com.tw/user/a6475
------
月夜 光明 藍更愁 |
|
mine
中階會員 發表：28 回覆：129 積分：56 註冊：2004-03-31 發送簡訊給我 |
|
|
deity
尊榮會員 發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
插个花：
procedure TForm1.Button3Click(Sender: TObject);
Var
Date1 : TDate;
EDate : Integer;
begin
Date1 := StrToDate(Edit2.Text) 30;
EDate := Trunc(Date1-now);
ShowMessage('共差' intToStr(EDate) '天');
end;
另站内有很多相关资料，可输入”日期相加“进行查寻< > >< >
<>~~~静心养德~~~ 發表人 - deity 於 2005/01/31 11:12:27
|
|
a23161
一般會員 發表：2 回覆：2 積分：0 註冊：2005-01-29 發送簡訊給我 |
發表時間：2005-01-29 19:44:50
IP:220.141.xxx.xxx 未訂閱
系統時間：2024-06-24 19:53:33
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |