程序实现的原型如下: public tStartTime as datesub main() t1=getLastRunTime '获取上次的运行时长 t2=getLastRunStartTime '获取上次程序的启动时间 if abs(t2+t1-now)>30days then '判断与当前时间的距离是否超过30天 msgbox "expert!" else tStartTime=now '记录当前时间 endif end subsub ProgramEnd() saveLastRunStartTime tStartTime '保存本次程序的启动时间 saveLastRunTime abs(now-tStartTime) '保存本次的运行时长,abs的意思是记录绝对的距离,防止用户在退出的时候把时间往前调 end sub
这里是需要判断日期的。但是如果用户将windows的日期改了的话,不就相当于到了新的一天了吗。不就没法控制了吗?我该如何解决这个问题?
public tStartTime as datesub main()
t1=getLastRunTime '获取上次的运行时长
t2=getLastRunStartTime '获取上次程序的启动时间
if abs(t2+t1-now)>30days then '判断与当前时间的距离是否超过30天
msgbox "expert!"
else
tStartTime=now '记录当前时间
endif
end subsub ProgramEnd()
saveLastRunStartTime tStartTime '保存本次程序的启动时间
saveLastRunTime abs(now-tStartTime) '保存本次的运行时长,abs的意思是记录绝对的距离,防止用户在退出的时候把时间往前调
end sub