Question

vb的DTPicker1值加上任意分钟怎样得出新值?

vb窗体上有个DTPicker1控件，一个text1控件。并有下面的代码：
DTPicker1.format=dtpTime
DTPicker1.value=time
现在有个分钟变量x，怎样让text1等于DTPicker1.value加上分钟变量。
比如，如果DTPicker1.value=9:08:18，加上60分钟，text1=10:08:18；如果DTPicker1.value=9:08:18，加上55分钟，text1=10:03:18

Answer 1

还是要通过DateAdd()函数变换后再赋值给 DTPicker1控件.
如:
DTPicker1.value=9:08:18，加上60分钟，
text1=DateAdd("n",60,DTPicker1.value)

追问

具体说下代码

追答

函数:
DateAdd(interval, number, date)
interval取 n,小写的为分钟..
也就是说,给date 时间增加number 分钟后得到一个新的时间...

追问

N大写怎么也是分钟？如果加上若干小时，或秒，怎样用这函数？

追答

那要单独增加,函数中的参数,一次只能选择一个.
参数如下:
interval 参数具有以下设定值：
设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒

一般最好按说明中的参数编写.
你没有看VB中的帮助吗?
我把帮助中的内容拷贝给你看看...

说明
可以使用 DateAdd 函数对日期加上或减去指定的时间间隔。例如，可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。
为了对 date 加上“日”，可以使用“一年的日数” (“y”)，“日” (”d”) 或“一周的日数” (”w”)。
DateAdd 函数将不返回有效日期。在以下实例中将 1 月31 日加上一个月：
DateAdd(m, 1, 31-Jan-95)

上例中，DateAdd 返回 1995 年 2 月 28 日，而不是 1995 年 2 月 31 日。如果 date 是 1996 年 1 月 31 日，则由于 1996 年是闰年，返回值是 1996 年 2 月 29 日。
如果计算的日期超前 100 年（减去的年度超过 date 中的年份），就会导致错误发生。
如果 number 不是一个 Long 值，则在计算时取最接近的整数值来计算。
注意 DateAdd 返回值的格式由 Control Panel设置决定，而不是由传递到date 参数的格式决定。

追问

计算距现在为 45 分钟的时间？我试试了加上310分钟，怎样也可以？

追答

你要计算310分钟,实际上就是增加了 5 小时,10分钟.
如:
Now: 07:10
DateAdd("n",310,Time) 结果就是 12:20 了.

追问

请问：你上面说“可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。”这怎么解释呢？我到底可以计算距现在多少分钟的时间？

追答

DateAdd() 函数中使用不同的参数,表示要参与计算的种类不同.
如:
DateAdd("n",30,Time) 计算出当前时间再增加"30" 分钟后的时间,这里增加的是"分钟",因为
选择的参数是"n",需要增加的值是 30.
DateAdd("d",30,Date) 计算出当前日期再增加30天后的日期.
这里选择的参数是"d",表示按"天"计算,需要增加的值是30
你也可以用负数来计算.DateAdd("d",-6,Date) 表示当前日期后退6天.
有关参数,我在前面已经给你罗列出来了,你没有看?
也就是说,DateAdd()函数中根据你的需求参数不同计算的类型是不同的,你只能选择你所需要的
日期类型,如年,月,周,时,分,秒等等.

追问

DateAdd("n",30,Time) 是增加30分钟，我的意思是有没有一个限制，我增加任意分钟可不可以。比如：10000000000000000000000000000000000000000亿亿分钟？
那样，那个增加天的，可不可增加任意的天数？

追答

函数 DateAdd(interval, number, date)
中参数 number 为数值型表达式，你过分了，
电脑会告诉你：溢出的！
电脑可不是白痴哦！....

Answer 2

没看到代码