vb利用VB判断并计算时间，急，高手赐教！
上午工作时间:8:00-11:30 下午工作时间:14:00-17:00
如果在其他时间工作则算作加班.
甲今日的excel工作时间表 如下:
7:00-10:00 180分钟
10:00-12:00 120分钟
13:00-15:00 120分钟
15:00-17:00 300分钟
如何利用VB判断并计算甲今日的工作时间和加班时间.
最好有代码 谢谢
Const Max = 100
'原始数可放于文件中
'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("07:00") '起
BB(1) = NN("10:00") '止
AA(2) = NN("10:00")
BB(2) = NN("12:00")
AA(3) = NN("13:00")
BB(3) = NN("15:00")
AA(4) = NN("15:00")
BB(4) = NN("17:00")
For i = 1 To Max
For j = AA(i) To BB(i) - 1
If (j >= NN("8:00") And j < NN("11:30")) Or (j >= NN("14:00") And j < NN("17:30")) Then
A = A + 1
Else
B = B + 1
End If
Next
Next
Print "正常: "; A, "加班: "; B
End Sub
Private Function NN(MM_SS As String) As Integer
'计算到"00:00"分钟数
NN = DateDiff("n", CDate("00:00"), CDate(MM_SS))
End Function
vb利用VB判断并计算时间,急,高手赐教!
Private Function NN(MM_SS As String) As Integer '计算到"00:00"分钟数 NN = DateDiff("n", CDate("00:00"), CDate(MM_SS))End Function
...怎样将时间取值为当前时间的前一天。请高手赐教。必有重谢。_百度...
在数据库操作中，经常会遇到日期或时间类型的数据处理，VB的特点，要构造日期类型常量，要用#号括起来，例如：Dim D As Date D = #7\/9\/2012 容易错误的是，会用双引号扩起来，我们知道双引号扩起来的是字符类型。在用VB操作数据库进行查询时，若遇到日期类型的查询，例子如下：要查询出生日期在1982...
VB问题,如何比较时间的大小?
Private Sub Command1_Click()Dim 上班时间 As Date, 下班时间 As Date 上班时间 = "08:30"下班时间 = "17:30"If Now > 0.5 Then If Now < 下班时间 Then MsgBox "下班时间未到，请不要早退！"Else MsgBox "平平安安又一天，明天见！"End If Else If Now > 上班时间 Then MsgBox "...
vb6.0检测当前时间属于哪个时间段
If Hour(Now) = 23 Or Hour(Now) = 0 Or Hour(Now) = 1 Then MsgBox "子时"Else MsgBox "非子时"End If
vb中的步长 step求精确解释,高手请进
1.如果i是integer，且a为固定的小数,设第一次循环i=1,i+a后的小数i要进行四舍五入取整，再执行循环体，而a的值是不变的。2.如果i是single,且a为小数，则下次循环的i不用取整了，a的值还是不变的。3.a想定义成变量的话，在单层循环中，是无法实现的，但嵌套的可以改变内层循环的步长。a=1...
vb 软件时间限制
'\/\/一个例子:Private Sub Form_Load()Dim s(2) As Date s(0) = "2008\/8\/8"s(1) = "2009\/8\/8"If Not (Now >= s(0) And Now <= s(1)) Then MsgBox "软件已过期...": End End Sub '\/\/一般来说可以将时间限制储存到注册表中,或者文件中,程序启动时读取并判断是否过期....
vb基础问题 请教各位路过的高手···请不吝赐教 在这谢过了
语法是没错,不过会死循环。因为那你退出DO 的条件永远不会满足。你应该把dd=dd+1 放如循环内部。说错了，是只会运行一次，因为你把while放下面，所以是先执行后判断，因为你条件不满足所以第二次不会再循环，DO 有几个用法 ，要注意区别 先判断后执行，条件满足不执行 do until loop 先执行执行...
求VB高手 怎么判断一个文件时文本文件,不要说用扩展名判断
它是把文件中的内容能用字符串表示的就全用字符串表示了，表示不了的，就可能用空字符来表示。关于，你的工程，用这种方法去打开文件，当然是可以被打开，且不会有错。至于，有什么方法来识别是否是文本文件，那可能就不好解决了。有必要读取文件全部内容，逐一判断，这会让人崩溃的。
请各位vb高手赐教! 小弟感谢不已!!
Dim a As String Dim b As String Dim c As String Open "c:\\wenben1" For Binary As #1 a = Space(LOF(1))Get #1, , a Close Open "c:\\wenben2" For Binary As #1 b = Space(LOF(1))Get #1, , b Close Open "c:\\wenben3" For Binary As #1 c = Space(LOF(1))Get...
请教vb高手,下面一个语句中 我查询存货编号的执行了b.cComunitCode=a...
SQL = "SELECT a.*,b.* From 存货表 a ,cu b where b.cComunitCode=a.dw and a.kc>0 and (a.存货编号 like '" & Trim(textbh.Text) & "%') or (a.简码 like '" & Trim(textbh.Text) & "%')"
