VB6

Есть три смены , первая - 00:00 - 08:00 , вторая - 08:00 - 16:00 , третья -
16:00:00

Надо по текущему времени на часах компуцера определить рабочую смену.

Что то не вспомню как создать константу времени...

Спасибо, VB ставит еще символ AM.... Это ничего?

У меня полные сутки, в базу сведения будут вводятся круглосуточно.

Вот процедурка для определения номера смены,наверное я здесь где то затупил ,так работает не верно.

Private Function ReturnNumberSmen() '

Const n1 = #8:00:00 AM#
Const n2 = #4:00:00 АM#
Const n3 = #12:00:00 AM#


If Time > n1 And Time < n2 Then ReturnNumberSmen '00-08

If Time > n2 And Time < n3 Then ReturnNumberSmen '08-16

If Time > n3 And Time < n1 Then ReturnNumberSmen '16-00

End Function

Когда ввел в константу 16 ,васик исправил на 4...

блин,спешка...

функция.

Private Function ReturnNumberSmen() as long

Const n1 = #8:00:00 AM#
Const n2 = #4:00:00 АM#
Const n3 = #12:00:00 AM#

If Time > n1 And Time < n2 Then ReturnNumberSmen=1 '00-08

If Time > n2 And Time < n3 Then ReturnNumberSmen=2 '08-16

If Time > n3 And Time < n1 Then ReturnNumberSmen=3 '16-00

End Function

Так врет же функция почему то... Неверно возвращает номер смены.