DEFINIR INTERVALO

USUARIO.EXCLUIDOS 24/05/2007 09:30:59
#218039
Gente Preciso fazer o seguinte:

Definir um Intervalo de tempo para que eu possa calcular os turnos.

é assim de 06:01 da manha ate as 15:48 da tarde é o primeiro turno
de 15:49 da tarde ate as 01:09 da manha é o segundo turno
de 01:10 da manha ate as 06:00 da manha é o terceiro turno

Se alguém puder me dar alguma idéia.
Pq eu to sem nenhuma
ALMARTI 24/05/2007 09:38:46
#218041
Blemer, explique melhor. Se rever seu texto, irá ver que você já definiu estes intervalos. COmo os que representados? Como pretente usá-los? Quer comparar a hora atual e saber em que turno esta? Explica pra gente.
USUARIO.EXCLUIDOS 24/05/2007 10:24:53
#218051
Isso mesmo a partir da hora atual que estiver no PC irei verifica-la e definir o turno
ALMARTI 24/05/2007 11:00:11
#218056
OK
Agora Melhorou

Eu não testei, mas o principio é este

Private Sub Command1_Click()
If Time >= #6:00:00 AM# And Time < #3:48:00 PM# Then
  MsgBox "Turno1"
ElseIf Time >= #3:48:00 PM# And Time < #1:09:00 AM# Then
MsgBox "Turno2"
ElseIf Time >= #1:10:00 AM# And Time < #6:00:00 AM# Then
MsgBox "Turno3"
End If
End Sub



Porém sugiro que use variavel ao inves de horas fixas, para ficar mais falcil alterar depois
USUARIO.EXCLUIDOS 24/05/2007 11:17:45
#218060
Ele reconhce se ao inves da hora estar como 3:48 PM como 15:48??
ALMARTI 24/05/2007 11:23:04
#218061
sim
USUARIO.EXCLUIDOS 24/05/2007 11:23:15
#218062
Pq eu fiz um teste aqui e não deu certo
USUARIO.EXCLUIDOS 24/05/2007 11:32:04
#218064
Dim Turno As Integer

If Time >= #6:00:00 AM# And Time < #3:48:00 PM# Then
Turno = 1
ElseIf Time >= #3:49:00 PM# And Time < #1:09:00 AM# Then
Turno = 2
ElseIf Time >= #1:09:00 AM# And Time < #6:00:00 AM# Then
Turno = 3
End If

é praticamente a mesma mais quando eu mudei pra 15:48 a hora do meu pc aqui apareceu turno = 0
ALMARTI 24/05/2007 11:37:02
#218066
é preciso verificar suas configurações regionias.
USUARIO.EXCLUIDOS 24/05/2007 11:41:33
#218069
O que é preciso mudar nas configurações regionais??
USUARIO.EXCLUIDOS 24/05/2007 12:05:41
#218077
Mais alguma ideia??
Página 1 de 3 [28 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar