vb怎麼實現的判斷教室在某個時間段是否在使用。
1樓：沙慧月
假設教室使用的時間為12：00---21：00，新增兩個text，分別填入時間段的區間。
private sub command1_click()
if text1 >=12:00" and text1 <=21:00" then n = n + 1
if text2 >=12:00" and text2 <=21:00" then n = n + 1
if text1 <=12:00" and text2 >=21:00" then n = n + 1
if n > 0 then
msgbox "在頌衝枯該時間段教室有在用"
elsemsgbox "在該時間段教野洞室沒有判肆在用"
end if
end sub
在vb中，如何判斷乙個時間是否在乙個時間段內
2樓：網友
private sub command1_click()dim d1 as date
d1 = #9:01:00 am#
if d1 >= #8:00:00 am# and d1 <= #9:30:00 am# then
msgbox "在範圍內！"
elsemsgbox "不在範圍內！"
end if
end sub
vb如何判斷是否是規定時間**等
3樓：網友
if hour(time) >=14 and hour(time) <= 16 then msgbox "現在時間在下午2-4點之間"
vb判斷每過一段時間就按一下鍵
4樓：網友
用timer的：
option explicit
private sub form_load()= 60000 '表示一分鐘。
trueend sub
private sub timer1_timer()static i as integer
if i = 9 then i = 0: sendkeys "a" '9代表10分鐘 半小時就是29
end sub
不用timer的話沒必要啊。為什麼不用呢。
vb 時間段判斷
5樓：逯智偉罕寧
'00:00:00-00:00:00
人懶啦，用time獲取的時間都是符合格式的所以就不做是否為數字的判斷。
private
subcommand1_click()
記錄開始時間。
timeendsub
private
subcommand2_click()
記錄結束時間。
timeendsub
private
subcommand3_click()
判斷ifmid(,1,8)
mid(,10,8)
thenmsgbox
對不起。輸入有誤"
elseif
val(mid(,1,2))
24orval(mid(,10,2))
24orval(mid(,4,2))
60orval(mid(,13,2))
60orval(mid(,6,2))
60orval(mid(,16,2))
60then
msgbox
錯誤"else
msgbox
現在時間在指定範圍"
endifendsub
6樓：網友
其他**不變，把這句改一下看行不行：
filetime =cdate( 』獲得檔案時間。
vb判斷時間範圍**
7樓：網友
vb可用timer控制項對系統時間進行判定。
time 函式，返回乙個指明當前系統時間的 variant (date)。
timer 控制項，通過引發 timer 事件，timer 控制項可以有規律地隔一段時間執行一次**。
具體實施**如下：
private sub form_load()= 500
trueend sub
private sub timer1_timer()if time < cdate("08:00:00") then= "錯誤"
elseif time >= cdate("08:00:00") and time <= cdate("08:20:00") then
正常"else
超時"end if
end sub
8樓：網友
時間型別的資料可以直接使用大於號小於號進行比較，如：
private sub command1_click()if time() cdate("08:00:00") thenmsgbox "錯誤"
elseif time() = cdate("08:00:00") and time() = cdate("08:20:59") then
msgbox "正常"
elsemsgbox "超時"
end if
end sub
vb中,如何利用電腦的系統時間來判斷春夏秋冬
9樓：沙慧月
private sub form_load()= 500
end sub
private sub timer1_timer()a = month(now)
if a >=3 and a <=5 then= 伏雹氏春"
elseif a >=6 and a <=8 then= 夏"
elseif a >=9 and a 《肆簡= 11 then= 秋"
elseif a = 12 or a <=2 then= 冬"缺散。
end if
end sub
vb 選擇時間段
10樓：網海1書生
dim d as date '注意：變數型別必須是date！
for d = ## to ##
print d
next請注意，我的**是最簡的，因為其他人都忽略了乙個最簡單的事實：日期變數是可以直接進行加減的，+1就等於增加了1天，所以是可以直接在for迴圈中使用的！
要把它賦值給乙個字串陣列也很簡單：
dim s() as string, d as date
redim s(####
for d = ## to ##
s(d - ##) = d
next
11樓：36000天
你的日期怎麼存到字串中的？中間沒有什麼分隔符嗎？例如」，「隔開或者 空格隔開，要有規律那樣就很簡單的區分了。
dim x() as string
x = , ",")
這時候textbox1中輸入2010-12-19，2010-12-20
x陣列就分開儲存了對應的值。
x(0)=2010-12-19
x(1)=2010-12-19
12樓：匿名使用者
大概寫了下**， 只是個思路，可能有語法錯誤，但問題不大dim strdate as date
dim enddate as date
dim tmpdate as date
dim arrdate() as stringstrdate = 2010-12-18
enddate = 2011-03-18
dim i as integer
i=0do until tmpdate =enddatetmpdate =dateadd("d" ,strdate,i+1)redim preserve arrdate(i)arrdate(i) = tmpdatei =i+1
loop
vb時間段
13樓：網友
option explicit
視窗需要乙個text1控制項，乙個timer1控制項。執行後即時調整系統時間測試效果。
dim basetime, wrk as long, wrkchange as long, timestamp as long
private sub form_load()
basetime = format(dateserial(int(year(now)) 1, 1, 1), "yyyy-mm-dd hh:nn:ss")
wrk = 7 * 60 ^ 2
wrkchange = 19 * 60 ^ 2
trueend sub
private sub timer1_timer()
timestamp = datediff("s", basetime, now) mod 86400
現在是" & iif((timestamp > wrk) and (timestamp < wrkchange), "a班", "b班")
end sub
14樓：網友
沒有你這樣做法的，你可以這樣做：先建立乙個班次表：
班次名稱 開始時間 結束時間 跨夜a班： 07：00 19：
00 0b班： 19：00 07：
00 1然後用記錄集方式取出，根據人員上下班的時間進行判斷，如果在當天7點前後發現有資料，然後再查詢當天24：00前的資料，如果兩個條件都成立，那麼自動處理為a班。
至於b班處理方式也是一樣的，先判斷19點前後是否有上班記錄，如果有，那麼再到次日7點前後查詢是否有下班記錄，如果兩個條件都滿足，那麼自動處理為b班。
將上述兩個班次寫為乙個迴圈，處理所有人就行了，這個難度並不高啊。
如何在EXCEL中的判斷某個日期是否在時間段中並進行求和
假設b h i三列的時間都能統一格式的，j2公式下拉填充 if g2 sumproduct a 2 a 1000 g2 b 2 b 1000 h2 b 2 b 1000 i2 c 2 c 1000 excel 2007及更高階點的內版本，公式 容 if g2 sumifs c c,a a,g2,b ...
買房時如何判斷物業的好壞，買房時怎麼判斷小區環境的好壞
搜狐焦點 什麼是物業？物業是指已經建成並投入使用的各類房屋及與之相配套的裝置 設施和場地。物業的重要性？對房價的影響 好的物業能夠讓房子更保值，甚至升值。在同一片區域，建築風格 建築年代 樓盤品質和樓盤戶型產品都相近的小區，物業服務水平高的小區，其二手房的 就比物業服務水平低的小區要高出許多。對日常...
在買榴蓮時，該怎麼判斷榴蓮品質以及生熟？
買榴蓮時，我們要從幾個方面去評判它的品質和生熟。首先可以聞氣味，看外形，也可以用手去摸一摸，按一按，這樣都是可以評判它的優劣的。優質的榴蓮，是偏圓的，也有的是偏扁的，但是偏扁的榴蓮肉不會特別飽滿，有時候開出來肉會很小，我們買來榴蓮，先看它的樣子，然後可以聞聞它的味道，臭一些的就是熟透的，榴蓮外殼發黃...