شیفت بندی - زمان بندی

[mohsen_iceman2000]

سلام میخوام یه قابلیت واسه نرم افزارم بزارم که وقتی صفحه Login نمایش داده می شه کاربر بتونه شیفت مورد نظر خودش رو انتخاب کنه


مثلا : شیفت صبح از ساعت 7 صبح تا 14 ظهر
عصر : 14:01 الی 20 شب
شب : 20:01 الی 6:59 صبح


می خوام وقتی کاربر روی دگمه ورود کلیک می کنه و شیفت صبح رو انتخاب می کنه اگر طبق ساعت ویندوز نبود آلارم بده و همچنین واسه عصر که اگر بین این ساعت نبود و ...

مرسی

[just4froum]

با سلام :

برای زمان ها هم میتونی به راحتی از if استفاده کنی. مانند :

If Time > #7:00:00 AM# And Time < #2:00:00 PM# Then MsgBox "Sobh"
If Time > #2:00:01 PM# And Time < #8:00:00 PM# Then MsgBox "Asr"
If (Time > #8:00:01 PM# Or Time > #12:00:00 AM#) And Time < #6:59:59 AM# Then MsgBox "Shab"

[محسن واژدی]

سلام علیکم
ضمیمه زیر را بررسی کنید

برای استفاده توابع Module1 را به برنامه کپی کنید


برای مثال:
Private Sub Command1_Click()
If IsAcceptedCurTimeShift("7", "14") Then
MsgBox "Welocme!", vbInformation
Else
MsgBox "Not allowed!", vbExclamation
End If
End Sub

البته باید بیشتر بررسی بشه، احتمالا در محاسبه شروع ساعت کاری بعد از ظهر تا فردا تشخیص نادرست بدهد

موفق باشید