时间相减问题

Question

我现在想实现这样一个功能，判断一个人在公司呆的时间，能否用现在的日期减去进公司的时间，这样得到的结果是什么！谢谢◎

Answer 1

当然可以：
procedure TForm1.Button1Click(Sender: TObject);
var
  ADate:TDate;
  i:Integer;
  YY,MM,DD,NYY:Word;
begin
  ADate:=StrToDate('83-12-23');//生成一个日期
  DeCodeDate(ADate,YY,MM,DD);//从日期分解出年来
  DeCodeDate(Date,NYY,MM,DD);//取当前的年份
  i:=NYY-YY;
  Edit1.Text:=IntToStr(i);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  Date1,Data2,Data3:TDate;
begin
  Date1:=StrToDate('2002-12-23');
  Date2:=StrToDate('2001-10-03');
  Data3:= Data1 - Data2;
  showmessage('差'+IntToString(Data3)+'天')
end;

Answer 3

看看delphi关于TDateTime的说明(press F1)
TDateTime是一个float类型的值,
1代表一天，0.5代表半天，1/24代表一个小时,1/(24*60)代表一分钟...