1樓:喜義
a的值是怎麼樣的?是像你寫的"8點30分"還是時間格式?
2樓:vb程式設計解放雙手
private sub command1_click()dim a as date
dim h as long, m as longdim isworktime as longa = now()
h = hour(a)
m = minute(a)
if h >= 8 and h <= 21 thenif h = 8 then
if m < 30 then
isworktime = 0
else
isworktime = 1
end if
elseif h = 21 then
if m > 30 then
isworktime = 0
else
isworktime = 1
end if
else
isworktime = 1
end if
else
isworktime = 0
end if
print "now is "; a; " isworktime="; isworktime
end sub
3樓:網海1書生
a = time
isworktime = -(a >= #8:30:00 am# and a <= #9:30:00 pm#)
4樓:匿名使用者
一個if函式,加一個時間函式的事。
5樓:匿名使用者
public sub getwotktime(vals )if format(vals, "hhmmss")>="083000" and format(vals, "hhmmss")<="213000" then
getwotktime=1
else
getwotktime=0
endif
end sub
呼叫時 寫 isworktime=getwotktime(a)
6樓:寒信
isworktime = 0
a=time
if a > #8:30:00 am# and a > time < #9:30:00 pm# then isworktime = 1
高分求一段sql語句,怎麼用sql語句建立作業
exec dbo.sp add job job name n ad hoc sales data backup enabled 1,description n ad hoc backup of sales data owner login name n fran oisa notify level ...
請幫忙翻譯一段日文,請幫忙翻譯一段日語
今日 aaa 最後 日 過去二年間餘 日 皆様 指導並 教 感謝致 前任上司 kuo aaa 仕事 頂 與 色 勉強 事 心 禮 申 上 所屬 部及 関系各部署 皆様 改 協力 頂 感謝 意 申 頂 最後 感謝 気持 納 頂 所存 皆様 健康 幸運 祈 今天是我在aaa的最後一天.在過去的兩年多的日...
幫忙翻譯一段古文
因此,即使有賢君,他也不愛無功之臣 即使有慈父,他也不愛無益之子。所以,凡是不能勝任其事而佔據這一位置的,他就不應居於此位 凡是不勝任其爵而享受這一俸祿的,他就不當享有此祿。良弓不容易張開,但可以射得高沒得深 良馬不容易乘坐,但可以載得重行得遠 好的人才不容易駕馭,但可以使國君受人尊重。所以,長江黃...