delphi 中时间比较

Question

本人想弄个考勤管理系统，但是想通过按钮后获取系统时间与设定的时间来判断员工是否迟到，或早退，或请假，····不知道怎么判断？请求大家解决！谢谢！

Answer 1

 /////// TDateTime = type Double;因此，直接比较即可：if Now > SetupDateTime then 迟到if Now = SetupDateTime then 正点if Now < SetupDateTime then 假装积极

Answer 2

如果愿意绕弯弯去搞，也可以formate成字符串再比较不过1楼的是正解

Answer 3

///////   TDateTime   =   type   Double;  ?什么意思？
还有
if   Now   >   SetupDateTime  这个可以比较吗？当前时间跟设定的时间哦！哪么设定SetupDateTime 应该设置成什么变量类型呢？谢谢！

Answer 4

///////TDateTime = type Double;   ?什么意思？
---------------------------------------------
意思是：TDateTime类型就是Double类型（因此两个TDateTime类型可以直接比较大小）哪么设定SetupDateTime   应该设置成什么变量类型呢？
---------------------------------------------
TDateTime

Answer 5

TDateTime   =   type   Double;
SetupDateTime:TDateTime;
是不是这样设置这个数据呢？设置成全局变量吧！谢谢

Answer 6

不好意思，那句是注释.....因为前面有 /////// 这样一堆/其实，那是Ctrl+单击代码中的TDateTime看到的VCL源码var
  SetupDateTime: TDateTime; //这句写对了

Answer 7

那你的意思就是在全局变量中设置
var 
    SetupDateTime:   TDateTime;
////
///
 然后在按钮ONCLICK事件中
添加代码：if   Now   >   SetupDateTime   then   迟到          if   Now   =   SetupDateTime   then   正点          if   Now   <   SetupDateTime   then   假装积极
就可以了吧！

Answer 8

不好意思，我以为你能看懂，所以就那样表述了。我重新规规矩矩地给你写了：但仍然是演示代码，不能就这样复制到你的应用软件里去：var
  SetupDateTime : TDateTime;procedure TForm1.Button1Click(Sender: TObject);
begin
  if Now > SetupDateTime then
    Showmessage(FormatDateTime('YYYY-MM-DD hh:nn:ss', Now) + '这时上班已经迟到了')
  else Showmessage(FormatDateTime('YYYY-MM-DD hh:nn:ss', Now) + '没迟到');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := '2008-02-27 20:49:49';
  SetupDateTime := VartoDateTime(Caption);
end;另外，浮点数直接进行=比较好象不太现实，这个你自己研究吧！

Answer 9

procedure   TForm1.FormCreate(Sender:   TObject); 
begin 
    Caption   :=   '2008-02-27   20:49:49'; 
    SetupDateTime   :=   VartoDateTime(Caption); 
end; 
_____________________________________
这段代码是要实现什么功能呢？谢谢你！另外，浮点数直接进行=比较好象不太现实，这个你自己研究吧！？？？？？？
你的意思是两个事件变量直接比较不好吗？