VB时间计算
我要的是2009-07-16 11:17:00 在着个时间上垒加1:15分钟 VB
显示的时候应该是 2009-07-16 12:32:00 着个运算怎么加？假如我电脑当前时间是2009-07-18 13:07:00 垒加N个1:15后我想得到不大于着个时间1:15分钟的数也就是2009-7-18 13时17分 怎么用时间去加着1：15
＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_Click()
Dim t As Date
t = #7/16/2009 11:17:00 AM#
t = DateAdd("n", 15, t) '加分钟
t = DateAdd("h", 1, t) '加小时
Print t
End Sub
t = time
t = DateAdd("n", 75, t) ' 把1:15换成分
?t本回答被提问者采纳
vb时间运算原则 这个怎么算
所以结果是21
请教一下vb时间运算(还是其他什么的)运算原则是什么?就是这个是怎么算...
答案为21，Month("2002,5,16")得到字符串的月份，5 Day("2002,5,16")得到字符串的日，16 5+16=21 调试过程如下图：
VB中怎么算两个时间内差的小时数
hourtime= abs(endtime-begintime)*24 方法二:(也就是你的,但只能返回整数,小数部分被舍去了)hourtime = DateDiff("h", BeginTime, EndTime)
vb中关于时间的算法以及其他细节
TargetDate = DateSerial(InputYear, InputMonth, InputDay) Dim DayGap As Integer DayGap = DateDiff(DateInterval.Day, TargetDate, Now) Debug.Print(DayGap)问题2 直接赋值就行 Dim a As Integer a = 5 Mod 2 Debug.Print(a)...
vb利用VB判断并计算时间,急,高手赐教!
'原始数可放于文件中 '07:00-10:00 180分钟 '10:00-12:00 120分钟 '13:00-15:00 120分钟 '15:00-17:00 300分钟 '8:00-11:30 14:00-17:00 Dim A As Integer Dim B As Integer Dim AA(Max) As Integer Dim BB(Max) As Integer '装数可用循环 AA(1) = NN(...
VB时间计算
用DateAdd函数。示例：＝＝＝ Private Sub Form_Click()Dim t As Date t = #7\/16\/2009 11:17:00 AM t = DateAdd("n", 15, t) '加分钟 t = DateAdd("h", 1, t) '加小时 Print t End Sub
VB中怎么计算用户自定义时间减系统时间的差
Label1.Caption = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日" & " " & Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)二：我们文本框为的就是对时间的设置，所以可以把当前的系统时间显示出来 故而在Form_load中也写上：Text1.Text = Year(Dat...
VB如何计算时间
唉，在 VB 中，Date 转换成 Double 以后，整数部分表示日期，小数部分表示时间。就是说，0.5 表示 12 个小时，1 表示一天。所以你要的秒数，需要用这个数除以一天中的秒数（24 * 60 * 60）
VB时间加减
If Now() = Time("12:00:00") Then 'Msgbox "鸟毛时间 12 点整"End If
用VB实现时间差的计算,比如07:28:49.9 , 07:29:42.3 等好几个时间点都...
Private Sub Change(ByVal x As Integer, ByVal y As Integer)Dim t As Integer t = x x = y y = t '在窗体是输出结果 Print "x="; x, "y="; y End Sub Private Sub Form_Click()Dim a As Integer Dim b As Integer a = 3: b = 4 Change a, b Print "a="; a, "b...
