我有一个表,当用户在区域中时,传感器将不断地将数据插入到db = 1的数据库中,当他移出区域时,直到它可以读取卡片,它将发送数据with flag = 0.如何获取每个用户的签到和签出对。表格结构如下
Minor|Check-in|created
=====|========|=======
3002 |0 |2017-09-29 18:07:38
3002 |0 |2017-09-29 18:07:46
3002 |0 |2017-09-29 18:07:52
3002 |1 |2017-09-29 18:08:22
3002 |1 |2017-09-29 18:08:44
3002 |1 |2017-09-29 18:08:52
3002 |1 |2017-09-29 18:09:04
3002 |0 |2017-09-29 18:09:48
3002 |0 |2017-09-29 18:12:14
3002 |0 |2017-09-29 18:14:44
3002 |1 |2017-09-29 18:21:32
3002 |0 |2017-09-29 18:21:40
3002 |0 |2017-09-29 18:21:48
3002 |0 |2017-09-29 18:22:14
预期输出为:
Minor |status |time
3022 | 1 |2017-09-29 18:08:22
3022 | 0 |2017-09-29 18:09:48
3022 | 1 |2017-09-29 18:21:32
3022 | 0 |2017-09-29 18:21:40
签入结帐可以是上面的两行,也可以是一行,如下所示,
Minor | check-in | Check-out
========|===================|===================
3022 |2017-09-29 18:08:22|2017-09-29 18:09:48
3022 |2017-09-29 18:21:32|2017-09-29 18:21:40
我们需要为每个未成年人提取登记入住和退房手续。逻辑将需要为一个未成年人办理一套登记入住和退房手续,因此办理登机手续将是第一个创建时间,其签到标志为1,结账将是创建的时间。签到旗帜为0的未成年人。
注意:
未成年人可以单独办理登机手续,也不办理结账。
请提出建议 感谢
答案 0 :(得分:1)
E.g:
Set oIE = CreateObject("InternetExplorer.application")
oIE.Visible = True
oIE.navigate ("http://technopedia.com")
wscript.sleep 100
Do While oIE.Busy or oIE.ReadyState <> 4: WScript.Sleep 100: Loop
wscript.sleep 100
Do While oIE.Busy or oIE.ReadyState <> 4: WScript.Sleep 100: Loop
msgbox oIE.ReadyState & " / " & oIE.Busy , vbInformation + vbMsgBoxForeground , "Information"
oIE.Quit
set oIE = Nothing