DEFINIR INTERVALO

USUARIO.EXCLUIDOS 24/05/2007 12:47:44
#218085

Eu tentei essa aqui tambÃ©m e nada se alguÃ©m tiver alguma idÃ©ia melhor

If (Time >= "06:00" And Time < "15:48") Then
Turno = 1
ElseIf (Time >= "15:48" And Time < "01:09") Then
Turno = 2
ElseIf (Time >= "01:09" And Time < "06:00") Then
Turno = 3
End If

USUARIO.EXCLUIDOS 24/05/2007 14:18:27
#218106

Me ajudem!!!!!!!

SILVERDRAGON 24/05/2007 14:48:14
#218112

Amigo faz isso aqui:

Coloca dentro do botao

Dim Turno As Integer

If Time >= "06:01:00" And Time < "15:48:00" Then
  Turno = 1
  MsgBox Turno
ElseIf Time >= "15:49:00" And Time < "01:09:00" Then
  Turno = 2
  MsgBox Turno
ElseIf Time >= "01:10:00" And Time < "06:00:00" Then
  Turno = 3
  MsgBox Turno
End If

flw

USUARIO.EXCLUIDOS 24/05/2007 15:03:15
#218119

Eu fiz essas linhas de código no evento Form Activate.

Para que quando o usuário abra o form o turno ja aparece automaticamente

na text.

So que isso não ta dando certo.

SILVERDRAGON 24/05/2007 15:07:15
#218121

Blemer aqui ta funcionando direitinho...

Testei no form_active e esta correto... Só uma duvida quando vc executa aparece o numero 1 ????? Se aparecer então esta correto..

flw

USUARIO.EXCLUIDOS 24/05/2007 15:09:12
#218122

Aparece sim mais se eu mudar no relógio.

Não aparece o o segundo turno.

Aparece ou 1 ou 0

SILVERDRAGON 24/05/2007 15:17:06
#218125

Calma ai que vou ver pra vc.....

ROBIU 24/05/2007 15:32:38
#218129

Está havendo um intervalo entre um turno e outro nos codigos acima:
Fim do Turno 15:48:00
Inicio do 2 turno: 15:49:00
De 15:48:00 atÃ© 15:48:59 não está definido.
Então se mudar a hora do sistema para 15:48, quando executar o codigo já vai ser 15:48:09, por exemplo. E isso não está no turno 1 nem no turno 2.
Muda isso e testa

USUARIO.EXCLUIDOS 24/05/2007 15:40:29
#218131

Mesmo vc colocando
15:49:00 direto ele
Não registra como se fosse
o Segundo turno.

SILVERDRAGON 24/05/2007 16:01:32
#218138

Amigo fiz um POG...da uma olhada + ta indo...Da uma olhada

flw

Página 2 de 3 [28 registro(s)]

Tópico encerrado , respostas não são mais permitidas

Voltar