全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1343
推到 Plurk!
推到 Facebook!

日期的傳回值

答題得分者是:ThePresent
sunny12457
一般會員


發表:2
回覆:0
積分:0
註冊:2007-12-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-01-04 11:14:06 IP:59.125.xxx.xxx 訂閱
var
x,y,z : string ;
begin
Database1.connected :=True;
Query1.Active :=false;
x := datetostr(date()); // 年月份帶入
y := midstr(x,1,4); // 2008
z := midstr(x,6,2); // 1
end;

-- > 我得到的日期值 x 是 2008/1/4 , y = 2008 , z = /1 但我想要把 z format 成 01 這字串 ,請問format的方式為何 @@ thx
編輯記錄
sunny12457 重新編輯於 2008-01-04 11:18:27, 註解 無‧
Stallion
版主


發表:52
回覆:1600
積分:1995
註冊:2004-09-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-01-04 12:12:24 IP:75.42.xxx.xxx 未訂閱
查一下 FormatDateTime 這個函數。
christie
資深會員


發表:30
回覆:299
積分:475
註冊:2005-03-25

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-01-04 12:58:46 IP:61.59.xxx.xxx 未訂閱
http://www.delphibasics.co.uk/RTL.asp?Name=FormatDateTime

===================引 用 Stallion 文 章===================
查一下 FormatDateTime 這個函數。
------
What do we live for if not to make life less difficult for each other?
ThePresent
一般會員


發表:1
回覆:4
積分:6
註冊:2008-01-09

發送簡訊給我
#4 引用回覆 回覆 發表時間:2008-01-09 14:37:25 IP:58.60.xxx.xxx 訂閱

===================引 用 sunny12457 文 章===================
var
x,y,z : string ;
begin
Database1.connected :=True;
Query1.Active :=false;
x := datetostr(date()); // 年月份帶入
y := midstr(x,1,4); // 2008
z := midstr(x,6,2); // 1
end;

-- > 我得到的日期值 x 是 2008/1/4 , y = 2008 , z = /1 但我想要把 z format 成 01 這字串 ,請問format的方式為何 @@ thx

X:=FormatDateTime('YYYY-MM-DD',now); //2008-01-09
Y:=FormatDateTime('YYYY',now); //2008
Z:=FormatDateTime('MM',now); //01

^^
系統時間:2024-05-13 13:57:00
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!