多线程，时间判断放主线程，按时启动停止需要执行的子线程即可

call aa()
sub aa()
T=timer
do
//任务
Loop Until timer - T > 30 * 60
end sub

还可把时间放到子程序参数中
call aa(30)
sub aa(分钟)
T=timer
do
//任务
Loop Until timer - T > 分钟 * 60
end sub

//差不多算教程吧,好好养研究一下

For 2
Call aa(0.1)'执行子程序 aa 0.1分钟
Call bb(0.2)'执行子程序 bb 0.2分钟
Call aa(0.3)'执行子程序 bb 0.3分钟
Delay 1000
Next
Sub aa(分钟)
ai = ai + 1 '计数用,不用管他
TracePrint "aa子程序第 " & ai & " 调用"
T = timer'当天运行的秒数保存
Do
TracePrint time & " aa子程序运行中..."
Delay 1000
Loop Until timer - T > 分钟 * 60
End Sub
Sub bb(分钟)
bi = bi + 1
TracePrint "bb子程序第 " & bi & " 调用"
T=timer
Do
TracePrint time & " bb子程序运行中..."
Delay 1000
Loop Until timer - T > 分钟 * 60
End Sub
/*
//如果要跨天运行,就不能用timer了,必须用 DateDiff函数来计算时间差
//把 aa子程序改成这样
Sub aa(分钟)
ai = ai + 1 '计数用,不用管他
TracePrint "aa子程序第 " & ai & " 调用"
保存时间 = now '保存现在日期和时间
Do
TracePrint time & " aa子程序运行中..."
Delay 1000
Loop Until DateDiff("s", 保存时间, now) >= 分钟 * 60
End Sub
*/