问大家个问题，使用什麽方法可以将系统时间和程序的运行时间隔离开给个例子看看(10分)

墙

墙头草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #1

问大家个问题，使用什麽方法可以将系统时间和程序的运行时间隔离开给个例子看看

 

一

一个过客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #2

好深奥的问题，没看懂

 

墙

墙头草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #3

我的问题没说清楚，是这样的比如系统时间是2002-12-20，而我的软件的运行时间想
在2002-12-18这个时间运行，在不改系统时间的情况下我该怎麽作。

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #4

什么叫运行时间啊?

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #5

晕.......

 

墙

墙头草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #6

昏 我也要倒了，这样说吧。比如系统时间是2002-12-20，但是我在2002-12-18这个时间有
没做完的工作，我在下次运行程序时候我想接着2002-12-18这个时间继续作还未完成的工作。
而我用程序取的时间是当前的时间2002-12-20这样我就不能接着2002-12-18作了。我想通过
怎样的方法可以将系统时间和软件的运行时间隔离开：）还是没说清 大家看看费心了

 

L

lwy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #7

在程序中设一个时间全局变量，每次都取这个变量

 

大

大奶牛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #8

同意楼上的，可以在系统启动时提供一个选择运行时间的界面，取回来作为时间全局变量

代码:

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #9

在当前时间下加加减减就可以了。
也可以截取服务器的时间。

 

T

teny_yu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #10

或者把每次运行的时间记在一个ini文件中，或者写入系统注册表.

 

D

Dr.johns

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #11

试试这个：
var
aRunDate:date;
aRunDateStr,aDay:string;
begin
aDay:=DateToStr(DayOf(Now));
if StrToInt(aDay)>3 then
begin
aDay:=IntToStr(StrToInt(aDay)-2);
aRunDateStr:=DateToStr(YearOf(now))+'-'+DateToStr(MonthOf(now))+'-'+aDay;
aRunDate:=StrToDate(aRunDateStr);
end
end.
aRunDate就是你要的日期。
关于以上的代码，在D6中可以编译通过。如在D5中，没有YearOf，MonthOf，DayOf函数
需用另外一个DecodeDate函数，去查一下帮助吧！[^]

 

墙

墙头草

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #12

多谢兄弟们了分不多给大家分了，我还比较同意teny_yu和dr.johns的意见。我也是想把他
写到ini或是注册表中。由于我这个软件是单机版所以不能截获服务器段的时间，还有啥好
招吗？大家来讨论一下