有关日期函数的问题

Question

直接减 的返回值不是Integer型的
我忘记说是在Delphi中

Answer 1

如果你两个日期的格式是一样的，那么就可以直接减了。如果返回数据不是integer型的，你可以转换一下就可以了.

Answer 2

var
  i:extended;
begin
  i:=DateTimePicker1.Date-DateTimePicker2.date;
  showmessage(floattostr(i));

Answer 3

好象没有datetoint这样的函数呀？

Answer 4

在DELPHI中 TDateTime 实际是 Double型
所以直接减后是Double型不是整型Double转integer的方法我就不说了把

Answer 5

我是初学者。
还请指教，Double转integer的方法
谢谢！

Answer 6

直接減！！！FloatToStr(Date()-IncMonth(Date(), -1)) 就是。'30'！

Answer 7

你得到的日期如果是日期型,可以直接 减
如是string,可用strtodate()转一下,
然后用floattostr得到减的值

Answer 8

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i,k:Tdate;begin
    i:= strtodate('2001-12-14' ) ;
    k:=strtodate('2001-12-2');
     edit1.text:=floattostr(k-i);
    end;

Answer 9

var
  i:Double;
  i2:integer;
begin
  i:=DateTimePicker1.Date-DateTimePicker2.date;
  showmessage(floattostr(i)); 
  i2:=strtoint(floattostr(i));

Answer 10

1、直接减 
2、DATEDIFF（）