幫忙用vb編寫一段語句

2022-04-28 10:45:30 字數 1239 閱讀 2415

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的最後一天.在過去的兩年多的日...

幫忙翻譯一段古文

因此,即使有賢君,他也不愛無功之臣 即使有慈父,他也不愛無益之子。所以,凡是不能勝任其事而佔據這一位置的,他就不應居於此位 凡是不勝任其爵而享受這一俸祿的,他就不當享有此祿。良弓不容易張開,但可以射得高沒得深 良馬不容易乘坐,但可以載得重行得遠 好的人才不容易駕馭,但可以使國君受人尊重。所以,長江黃...