关于定期执行任务的问题(50分)

C

com2usb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #1

我想让用户勾选一个星期的任意几天的某个时间进行提醒。我想一个最简的方法。
如一个用户选择了星期天、星期一、星期三的每天08:23:25吃药。用户打开程序时，我想让
他的程序上显示上面时间离当前时间最近的时间，如我现在是星期四，那么程序上应显示
星期天的08:23:25,再如如果现在是星期天的09：10：25，程序应显示星期一的08：23：25
请问如何做？

 

H

hjb_dydd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #2

Var I:Integer;
SelDay:Array Of Integer;
begin
For I:=0 to CustomSelCount-1 do //CustomSelCount为用户选择的天数
begin
If (DayOfWeek(Date)>SelDay[I-1])And(DayOfWeek(Date)<SelDay) then
Show(SelDay);//显示下一个要显示的日期；
end;
end;//未测试过，只是个算法模型。

 

C

com2usb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #3

多谢！