菜鸟不会进行时间计算，请大侠帮忙，假设我设定我的软件2003-5-27号过期，我的代码怎么不好使啊？(50分)

X

xiaoxiami0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #1

procedure Tdenglu.btn1Click(Sender: TObject);
var
d:string;
a,b:tdate;
c:double;
begin
d:='2003-05-27';
a:=now;
b:=strtodate(d);
c:=a-b;
if c<0 then
begin
showmessage('软件过期！');
end;
end;

 

J

jeary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #2

procedure Tdenglu.btn1Click(Sender: TObject);
var
d:string;
a,b:tdate;
c:double;
begin
d:='2003-05-27';
a:=date();
b:=strtodate(d);
if a<b then
begin
showmessage('软件过期！');
end;
end;
now()函數返回日期時間![][][]

 

H

HANFI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #3

var
st:string;
st2:TDate;
begin
st:=Edit1.Text;
st2:=strtodate(st);
if date>st2 then
showmessage('OK')
else
showmessage('No');

 

K

KOKS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #4

procedure Tdenglu.btn1Click(Sender: TObject);
var
d:string;
a,b:tdate;
c:double;
begin
d:='2003-05-27';
a:=now;
b:=strtodateTime(d);
c:=a-b;
if c<0 then
begin
showmessage('软件过期！');
end;
end;

 

X

xiaoxiami0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #5

多人接受答案了。

 

Z

zhukewen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #6

if date < encodedate(2003,5,27) then
begin
showmessage('软件过期！');
end;