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

請教 D5 日期函數 使用方式 ?? ---- water

答題得分者是:timhuang
water
初階會員


發表:90
回覆:89
積分:35
註冊:2003-07-07

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-12-02 08:33:26 IP:61.222.xxx.xxx 未訂閱
d1:='20020101'  // d1:=FormatDateTime('YYYYMMDD',Now);   d2:='20030101'    m_sub_date:=d1-d2;  // m_sub_date := 366  (數值) 指令要如何下??    m_date:=d1+31;      // m_date:='20020201' (字串) 指令要如何下??    ---- water    一切無為法.如虛亦如空.如如心不動.萬法在其中
------
一切無為法.如虛亦如空.如如心不動.萬法在其中
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-12-02 09:15:41 IP:210.65.xxx.xxx 未訂閱
Hi: D1 := '2002/01/01'; D2 := '2003/01/01'; m_sub_date := StrtoDateTime(D2) - StrtoDateTime(D1); m_date := StrtoDateTime(D1) 31; -------------------------------- 小弟才疏學淺,若有謬誤請不吝指教 --------------------------------
------
Fishman
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-12-02 09:23:45 IP:210.65.xxx.xxx 未訂閱
Hi:    
引言: D1 := '2002/01/01'; D2 := '2003/01/01'; m_sub_date := StrtoDateTime(D2) - StrtoDateTime(D1); m_date := StrtoDateTime(D1) 31;
Sorry !! 誤解你的意思,第二個指令更正如下: m_date := FormatDateTime('yyyymmdd',StrtoDateTime(d1) 31); -------------------------------- 小弟才疏學淺,若有謬誤請不吝指教 --------------------------------
------
Fishman
ko
資深會員


發表:28
回覆:785
積分:444
註冊:2002-08-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-12-02 09:26:20 IP:61.221.xxx.xxx 未訂閱
water 你好: 可以參考 strtodatetime(); 跟datetimetostr();
------
======================
昏睡~
不昏睡~
不由昏睡~
water
初階會員


發表:90
回覆:89
積分:35
註冊:2003-07-07

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-12-02 09:27:37 IP:61.222.xxx.xxx 未訂閱
m_sub_date 如何改為數值??    一切無為法.如虛亦如空.如如心不動.萬法在其中
------
一切無為法.如虛亦如空.如如心不動.萬法在其中
water
初階會員


發表:90
回覆:89
積分:35
註冊:2003-07-07

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-12-02 09:33:39 IP:61.222.xxx.xxx 未訂閱
M_Total_date : integer ;       Edit1.TEXT:=FormatDateTime('YYYY/MM/DD',Now);  // 始日    Edit2.TEXT:=FormatDateTime('YYYY/MM/DD',Now);  // 終日     M_Total_date:=StrtoDateTime(Edit2.Text) - StrtoDateTime(Edit1.Text);    錯在哪??    一切無為法.如虛亦如空.如如心不動.萬法在其中
------
一切無為法.如虛亦如空.如如心不動.萬法在其中
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-12-02 09:42:37 IP:210.65.xxx.xxx 未訂閱
Hi :    DateTime 相減為 Float,因此    M_Total_date : integer ;    Edit1.TEXT:=FormatDateTime('YYYY/MM/DD',Now); // 始日 Edit2.TEXT:=FormatDateTime('YYYY/MM/DD',Now); // 終日    M_Total_date:=Round(StrtoDateTime(Edit2.Text) - StrtoDateTime(Edit1.Text)); 試試看 -------------------------------- 小弟才疏學淺,若有謬誤請不吝指教 --------------------------------
------
Fishman
timhuang
尊榮會員


發表:78
回覆:1815
積分:1608
註冊:2002-07-15

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-12-02 10:02:36 IP:203.95.xxx.xxx 未訂閱
Hi, 可以用 DaysBetween function 來找出日數差. 若要自行計算的話, 你的式子要考慮型別轉換的問題, 改為: M_Total_date:=Trunc(StrtoDateTime(Edit2.Text)) - Trunc(StrtoDateTime(Edit1.Text)); 即可!
water
初階會員


發表:90
回覆:89
積分:35
註冊:2003-07-07

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-12-02 10:16:12 IP:61.222.xxx.xxx 未訂閱
daysbetween() 為何無法用 ?? 一切無為法.如虛亦如空.如如心不動.萬法在其中
------
一切無為法.如虛亦如空.如如心不動.萬法在其中
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-12-02 10:18:39 IP:61.222.xxx.xxx 未訂閱
你好 檢查一下有沒有uses DateUtils
water
初階會員


發表:90
回覆:89
積分:35
註冊:2003-07-07

發送簡訊給我
#11 引用回覆 回覆 發表時間:2003-12-02 10:29:09 IP:61.222.xxx.xxx 未訂閱
過不去 . D5 是這樣設嗎 ??     一切無為法.如虛亦如空.如如心不動.萬法在其中
------
一切無為法.如虛亦如空.如如心不動.萬法在其中
timhuang
尊榮會員


發表:78
回覆:1815
積分:1608
註冊:2002-07-15

發送簡訊給我
#12 引用回覆 回覆 發表時間:2003-12-02 15:30:29 IP:203.95.xxx.xxx 未訂閱
sorry. 該 func 在 delphi 5 是沒有提供的. 可以直接使用: M_Total_date:=Trunc(StrtoDateTime(Edit2.Text)) - Trunc(StrtoDateTime(Edit1.Text)); 就可以了. 避免版本差異的問題.
water
初階會員


發表:90
回覆:89
積分:35
註冊:2003-07-07

發送簡訊給我
#13 引用回覆 回覆 發表時間:2003-12-02 15:35:42 IP:61.222.xxx.xxx 未訂閱
可以下載 D6 *.DCU 來用嗎 ??    一切無為法.如虛亦如空.如如心不動.萬法在其中
------
一切無為法.如虛亦如空.如如心不動.萬法在其中
water
初階會員


發表:90
回覆:89
積分:35
註冊:2003-07-07

發送簡訊給我
#14 引用回覆 回覆 發表時間:2003-12-02 15:41:48 IP:61.222.xxx.xxx 未訂閱
請教 MIDSTR( 'ABCDEF',2,4 );   // BCDE D5 改成如何指令 ??    一切無為法.如虛亦如空.如如心不動.萬法在其中
------
一切無為法.如虛亦如空.如如心不動.萬法在其中
timhuang
尊榮會員


發表:78
回覆:1815
積分:1608
註冊:2002-07-15

發送簡訊給我
#15 引用回覆 回覆 發表時間:2003-12-02 19:47:20 IP:203.95.xxx.xxx 未訂閱
引言: 可以下載 D6 *.DCU 來用嗎 ??
不行, dcu 有版本差異!!
引言: 請教 MIDSTR( 'ABCDEF',2,4 ); // BCDE D5 改成如何指令 ??
使用 copy function 即可, 如: Copy('ABCDEF', 2, 4);
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#16 引用回覆 回覆 發表時間:2003-12-02 21:00:56 IP:211.76.xxx.xxx 未訂閱
water老大好強,開一篇post連續這麼多問題...
water
初階會員


發表:90
回覆:89
積分:35
註冊:2003-07-07

發送簡訊給我
#17 引用回覆 回覆 發表時間:2003-12-03 08:05:08 IP:61.222.xxx.xxx 未訂閱
我是肉角.所以才有如此多問題 但不恥下問+有心指導 是此站最大特色    一切無為法.如虛亦如空.如如心不動.萬法在其中
------
一切無為法.如虛亦如空.如如心不動.萬法在其中
系統時間:2024-11-25 12:38:28
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!