关于一个时间控制的问题，请教 ( 积分: 10 )

Y

yedixifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-14

• #1

想实现到某一天软件就停止使用，写的代码如下：
if inttostr(Trunc(strtodate('2007-12-15')-strtodate(Date))) < 0 then
运行时通不过呢？

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-14

• #2

if Trunc(strtodate('2007-12-15')-Date) < 0 then

if EncodeDate(2007, 12, 15) - Date < 0 then

 

Z

zywcd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-14

• #3

if strtodate('2007-12-15')-stryodate(Date) < 0 then

 

Y

yedixifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-27

• #4

多人接受答案了。