DEFINIR INTERVALO

USUARIO.EXCLUIDOS 24/05/2007 16:13:35
#218140
Funcionou

Fiz desse jeito aqui:
  dim hora as variant
     hora = time
    If hora >= #6:01:00 AM# And hora < #3:48:00 PM# Then
      Turno = 1
    ElseIf hora >= #3:49:00 PM# And hora < #1:09:00 AM# Then
      Turno = 2
    ElseIf hora >= #1:10:00 AM# And hora < #6:00:00 AM# Then
      Turno = 3
    Else
    Turno = 2
   End If
USUARIO.EXCLUIDOS 24/05/2007 16:14:58
#218141
BLEMER, baseado no código postado pelo SILVERDRAGON fiz algumas modificações e aqui funcionou, tenta aí...

Private Sub Command1_Click()

    Dim Turno As Integer
    
    If Time >= CDate("06:01:00") or Time < CDate("15:48:00") Then
      Turno = 1
      MsgBox Turno
    ElseIf Time >= CDate("15:49:00") Or Time < CDate("01:09:00") Then
      Turno = 2
      MsgBox Turno
    ElseIf Time >= CDate("01:10:00") Or Time < CDate("06:00:00") Then
      Turno = 3
      MsgBox Turno
    End If

End Sub
SILVERDRAGON 24/05/2007 16:15:03
#218142
+ vc tem q ir em Opções Regionais la em Painel de Controle e mudar o tipo de Hora para 12 horas e selecionar AM e PM....

Se não souber como faz é só perguntar...

flw
USUARIO.EXCLUIDOS 24/05/2007 16:15:34
#218143
Mais é preciso esse

ELSE
    turno = 2


é necessário isso?
ALMARTI 24/05/2007 16:19:00
#218144
BLEMER, qual a diferença do primeiro código que postei para voce?
SILVERDRAGON 24/05/2007 16:19:25
#218145
é sim....Conseguiu mudar as opções la no Painel de Controle???

Ta funcionando + vou melhorar isso ai t passo só q hj ta meio corrido até por isso de eu ter feito assim..


flw
USUARIO.EXCLUIDOS 24/05/2007 16:22:15
#218146
Nem precisa mudar as configurações regionais.

Pelo menos aqui reconheceu
SILVERDRAGON 24/05/2007 16:24:05
#218147
Entaum blz....



só não esquece de Encerrar o tópico


flw
Página 3 de 3 [28 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar