# Re: 新手发问: 再请问时间的加减

Posted by Alex on September 17, 1999 at 21:40:35:

In Reply to: Re: 新手发问: 时间的加减 posted by 小琳 on September 17, 1999 at 19:53:15:

: : : 请问如果程式设定每日14:00 至 16:00 每隔 15分钟30秒 要作一个job
: : : 程式该如何写?

: : : 难道要用以下这种笨方法吗?
: : : 还得设定timer 随时检查现在时刻严重消耗系统资源

: : : Private Sub Time_now_Timer()

: : : 现在时刻_时 = Val(Left(现在时刻, 2))
: : : 现在时刻_分 = Val(Mid(现在时刻, 4, 2))

: : : if 14<现在时刻_时<16 and ....
: : : then do some job
: : : endif

: : : End Sub

: : : 请不吝指点, 谢谢!

: :

# ~~

: :::这是没有办法的，因为VB不会知道现在的时间，所以
: 必须每一次呼叫系统的时间，VB才会知道!!!

能否再请问每隔15分钟30秒 要作一个job程式该如何写?也就是时间要如何相加减呢?
有没有现成的元件或公式来作07:10:05 + 00:15:30 = 07:25:35呢?
我想过用副程式(将时间转换成数字再计算)再和现在时刻比较是否要执行该job? 请问各位先进还有没有更好的办法?

Follow Ups:

- Date and Time function wei 00:46:36 9/18/99 (0)