請問一下有關日期的問題 |
尚未結案
|
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)));..-----------βλμε------------.. ◎Oo月夜 光明 藍更愁oO◎ 藍調月光城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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |