Tùy chọn
Tính khoản thời gian trong ngày
- Tính khoản thời gian trong ngày
-
Tính khoản thời gian trong ngày
morosumo > 27-11-15, 04:23 PM
Các pro rảnh viết dùm thủ tục form_load
Từ 7:30 đến 11:00 (được khám ) và 1:30 đến 5:00 (được khám) còn khoản thời gian còn lại thì không được khám.
thank. -
RE: Tính khoản thời gian trong ngày
ongke0711 > 27-11-15, 09:02 PM
Bạn nói rõ hơn yêu cầu, tôi chưa hiểu lắm. "Được khám" hiểu như thế nào? Form khám bệnh được enabled để điền thông tin hay hiện thông báo hay sao...? -
RE: Tính khoản thời gian trong ngày
morosumo > 29-11-15, 11:07 PM
Chào bạn. cám ơn bạn đã quan tâm.
như thế này,
Từ 7:30 đến 11:00 (được khám ) và 1:30 đến 5:00 (được khám) . khi đến 11:01 thì hiện thông báo không hết giờ hành chính không khám bệnh, cũng như trước 7:30 ( hiện thông báo chưa đến giờ khám bệnh) và buổi chiều 1:30 đến 5:00 cũng vậy. -
RE: Tính khoản thời gian trong ngày
morosumo > 30-11-15, 11:09 AM
sau khi mò mẫm đã làm được
1 ngày 24 giờ mình quy về số phút
-----
7h30 thành 450', 11h thành 660',13h30 thành 810', 17h thành 1020'
Dim Gkham As Integer
Gkham = Hour(Now()) * 60 + Minute(Now())
If Gkham < "450" Then
MsgBox "chua den 7H30, chua den gio kham benh ", vbInformation, "Thong cam!"
ElseIf Gkham > "1020" Then
MsgBox "Baây giôø " & Hour(Now()) & "H" & Minute(Now()) & " khong dc kham", vbInformation, "Thoâng caûm!"
ElseIf Gkham > "660" And Gkham < "810" Then
MsgBox "Baây giôø " & Hour(Now()) & "H" & Minute(Now()) & " khoâng tôùi giôø khaùm beänh", vbInformation, "Thoâng caûm!"
End If
End Sub -
RE: Tính khoản thời gian trong ngày
maidinhdan > 01-12-15, 05:59 PM
Lỡ cái cục pin CMOS nó bị bệnh thì làm như thế nào? -
RE: Tính khoản thời gian trong ngày
morosumo > 02-12-15, 03:08 PM
PIN CMOS DIE thì mình chịu thua.
