懂VB 和XML的编程高手请进解决问题给100分.

来源：百度知道编辑：UC知道时间：2024/09/20 09:21:41

"Reservation"把他当作是开始,而最的就是结束,
在A验证号到B验证号是一个预约工作,他大约要在5-6个小时完成一次工作,而且每个验证号都不能重复,<3PAJ0HLOFVGAVCWG0> 到下一个可以是
<3PAJ0HLOFVGAVCWG1> 或是其它的也可以,在就是时间的变化, 读取当前的时间, 然后以后的每一个预约都要升5小时一个工作就会完成,就是这样的工作,能不能让他全自动化吖~` 哪位大侠帮解决,偶万分感激!我送他100分,呵呵偶可不是骗人哦,如果没人能解决,我就省啦~

<Reservation>("预约工作开始")

<3PAJ0HLOFVGAVCWG0> ("A验证号码")
<Reservation>2006-10-31 4:23:31</Reservation>("预约工作起始时间")
<IsOneToOne>True</IsOneToOne>
<FromName>Name</FromName>
<MailFrom>your@adress</MailFrom>
<RcptName>
</RcptName>
<RcptGroup></RcptGroup>
<Filter>2</Filter> (变量)
<Subject>预约工作1</Subject>
<Content>From: =?iso-2022-jp?B?GyRCQG5FRBsoQg==?=<your@address>
Subject: (主题)
MIME-Version: 1.0
Reply-To: <hassuv700@yahoo.co.jp>

很简单嘛~

GetTime(0)

年 = G_TIME_YY
月 = G_TIME_MM
日 = G_TIME_DD
时 = G_TIME_HH
分 = (G_TIME_NN + 10)

while true
ifb 60 < val(分) then
时 = 时 + 1
分 = val(分) - 60

endif
if 60 > val(分) then Break
ifb 60 = val(分) then
时 = 时 + 1
分 = 1
Break
endif
wend

while true
ifb 24 = val(时) then
时 = 0
日 = val(日) + 1
endif
ifb 24 < val(时) then
日 = val(日) + 1
时 = val(时) - 24
endif
if 24 > val(时) then Break
wend

while true
ifb val(月末) < val(日) then
月 = val(月) + 1
日 = val(日) - val(月末)
endif
if val(月末) + 1 > val(日) then Break
wend

打个记号，学习学习，先拿两分

懂VB 和XML的编程高手请进解决问题给100分. 熟悉ASP和XML的高手请进！ VB编程高手请进 vb编程高手请进！！ VB编程高手请进.... vb编程知识，懂的高手请进来赐教一下》关于VB编程的问题.高手请进.! 关于vb编程的问题 VB爱好者或高手请进 VB编程的请进 vb编程高手请进！！紧急~~~~！！！！！

懂VB 和XML的编程高手请进 解决问题给100分.

懂VB 和XML的编程高手请进解决问题给100分.