有关delphi 操作access的问题,在线等

Question

其实我就是想实现,通过当天的日期判断一个员工的合同是否到期了,如果是,就提前7天或5天显示出来就行了如,某某员工的合同还有XX天到期,这样.谢谢!!

Answer 1

if 该员工的合同到期日期减去今天的日期<7 then
  提示

Answer 2

if (合同日期.value - date() ) <= 5 then 
begin  
   application.messagebox(pchar('您还有'+inttostr(合同日期.value - date() )+'天到合同期!'),'提醒',mb_ok);
end

Answer 3

晕,连接数据库
取到期时间字段fieldbyaname('??').asdatetime;
date+7跟它做比较
showmessage,或提示
ok

Answer 4

if 合同日期-当前日期<=7 then showmessage('到期');

Answer 5

if (合同日期.value - date() ) <= 5 then 
begin  
   application.messagebox(pchar('您还有'+inttostr(合同日期.value - date() )+'天到合同期!'),'提醒',mb_ok);
end

Answer 6

var
          a,b:TDateTime;
          c:integer;  begin        a:=StrToDate(Edit1.Text);//字符串轉為日期型
        b:=date();              //獲敢當前日期
        c:= Trunc(a - b);   //函数将实型值截取为整型值 
        application.messagebox(pchar('您還有' +inttostr(c)+' 天到合同期!'),'提醒',mb_ok);  end;