日期如何減一天 |
|
答題得分者是：Jasonwong
|
|
7-11
一般會員   發表：53 回覆：33 積分：16 註冊：2005-12-05 發送簡訊給我 |
|
|
Jasonwong
版主  發表：49 回覆：931 積分：581 註冊：2006-10-27 發送簡訊給我 |
1.將字串變成日期格式 如 2007/07/01
2.運用 StrToDate 函數 ===================引 用 7-11 文 章=================== 請問各未達人 我的日期格式為 String 值為 '20070701' 我該如何做一個副程式輸入1則減少一天(傳回:20070630)，輸入2則減少兩天(傳回:20070629) 謝謝
------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心 |
|
Stallion
版主 發表：52 回覆：1600 積分：1995 註冊：2004-09-15 發送簡訊給我 |
1.日期字串長度固定的話，可用Pos,PosEx,LeftStr,RightStr等VCL函數將20070701改寫成2007/07/01，很容易的！試一下～
2.日期型態是可以加減的，以StrToDate轉換字串成日期格式後，答案就出來了！加油！ ===================引 用 7-11 文 章=================== 請問各未達人 我的日期格式為 String 值為 '20070701' 我該如何做一個副程式輸入1則減少一天(傳回:20070630)，輸入2則減少兩天(傳回:20070629) 謝謝 |
|
7-11
一般會員 發表：53 回覆：33 積分：16 註冊：2005-12-05 發送簡訊給我 |
謝謝各位喔~~我做出來了~~感恩感恩!
<textarea class="delphi" rows="10" cols="60" name="code"> function TForm1.DateConvert(Date:string;count:integer):string; var strDate : string; dte : TDateTime; begin strDate := Copy(Date,1,4) '/' Copy(Date,5,2) '/' Copy(Date,7,2); dte := StrToDate(strDate) -count; Result := FormatDateTime('yyyymmdd',dte); end; </textarea> |
發表時間：2007-08-03 10:36:59
IP:220.142.xxx.xxx 訂閱
系統時間：2024-05-03 0:19:53
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |