線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1705
推到 Plurk!
推到 Facebook!

二個DateTimePicker相減

尚未結案
iii928
一般會員


發表:19
回覆:10
積分:5
註冊:2004-06-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-08-22 11:39:01 IP:220.228.xxx.xxx 未訂閱

請問各位高手:

我要把二個DateTimePicker相減,然後我是需要最後的天數,請問要怎麼做呢?

若我使用 D1:=DateToStr(DateTimePicker2.Date-DateTimePicker1.Date);

會變成很奇怪的天數,請指教.....3Q

eaglewolf
資深會員


發表:4
回覆:268
積分:429
註冊:2006-07-06

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-08-22 12:05:44 IP:211.75.xxx.xxx 未訂閱

uses DateUtils,SysUtils;
D1 := FloatToStr(DateSpan(DateTimePicker2.Date - DateTimePicker1.Date));

D1 := IntToStr(DateBetween(DateTimePicker2.Date - DateTimePicker1.Date));

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL
iii928
一般會員


發表:19
回覆:10
積分:5
註冊:2004-06-04

發送簡訊給我
#3 引用回覆 回覆 發表時間:2006-08-22 14:23:42 IP:220.228.xxx.xxx 未訂閱

Hi,這位大大,照您的方法會出現下面的錯誤哦,不知道是為什麼呢~?而且我也uses DateUtils,SysUtils;這二個了

[Error] Unit1.pas(326): Undeclared identifier: 'DateSpan'

[Error] Unit1.pas(326): Undeclared identifier: 'DateBetween'
===================引 用 文 章===================

uses DateUtils,SysUtils;
D1 := FloatToStr(DateSpan(DateTimePicker2.Date - DateTimePicker1.Date));

D1 := IntToStr(DateBetween(DateTimePicker2.Date - DateTimePicker1.Date));

bruce_59714
一般會員


發表:3
回覆:19
積分:9
註冊:2006-07-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2006-08-22 17:59:29 IP:61.220.xxx.xxx 未訂閱

Edit1.text:=IntToStr(Round(DateTimePicker2.Date-DateTimePicker1.Date));

DateTimePicker2.Date-DateTimePicker1.Date以後Delphi已經自動轉換型別為Float

Bruce
===================引 用 文 章===================

請問各位高手:

我要把二個DateTimePicker相減,然後我是需要最後的天數,請問要怎麼做呢?

若我使用 D1:=DateToStr(DateTimePicker2.Date-DateTimePicker1.Date);

會變成很奇怪的天數,請指教.....3Q

bruce_59714
一般會員


發表:3
回覆:19
積分:9
註冊:2006-07-12

發送簡訊給我
#5 引用回覆 回覆 發表時間:2006-08-22 18:01:12 IP:61.220.xxx.xxx 未訂閱

Edit1.text:=IntToStr(Round(DateTimePicker2.Date-DateTimePicker1.Date));

DateTimePicker2.Date-DateTimePicker1.Date以後Delphi已經自動轉換型別為Float

Bruce
===================引 用 文 章===================

請問各位高手:

我要把二個DateTimePicker相減,然後我是需要最後的天數,請問要怎麼做呢?

若我使用 D1:=DateToStr(DateTimePicker2.Date-DateTimePicker1.Date);

會變成很奇怪的天數,請指教.....3Q

eaglewolf
資深會員


發表:4
回覆:268
積分:429
註冊:2006-07-06

發送簡訊給我
#6 引用回覆 回覆 發表時間:2006-08-23 15:18:54 IP:211.75.xxx.xxx 未訂閱

sorry, 應該是
D1 := FloatToStr(DaySpan(DateTimePicker2.Date - DateTimePicker1.Date));

D1 := IntToStr(DayBetween(DateTimePicker2.Date - DateTimePicker1.Date));
才對

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

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