DATA

USUARIO.EXCLUIDOS 13/03/2005 18:58:43
#72800
Boa noite, estou tendo uma dificuldade em trabalhar com data e hora, gostaria que no intervalo das 7:30 à s 17:30 um determinado campo receberia A, das 17:31 à s 03:30 B, e das 03:31 à s 7:29 C, já tentei:
If time >= 7:30 <= 17:30 then
label1.caption = "A"
end if
if time >= 17:31 <= 03:30 then
label1.caption = "B"
end if
if time >= 3:31 <= 7:29 then
label1.caption = "C"
end if
O programa não aceita, se alguém souber por favor me ajude, Obrigado.
TONARE25 13/03/2005 19:02:06
#72804
O Problema é que você esta trabalhando com Dias e não somente com horas...
Se puder esplicar melhor qual o objetivo disto poderei te ajudar melhor pois tem várias formas de se calcular tempo!

Tem a função DateDiff, tem também convertendo o tempo em Minutos ou segundos e calculando, enfim.... Depende do que necessita!!!

USUARIO.EXCLUIDOS 13/03/2005 19:07:17
#72807
Poe o valor da hora entre aspas
USUARIO.EXCLUIDOS 13/03/2005 19:18:10
#72814
Desculpem as horas eu realmente esqueci, à s coloquei entre aspas no meu programa esqueci de colocá-las no tópico.
Respondendo à  pergunta de TONARE25, é que gostaria que se a hora do sistema for entre 7:30 e 17:30 o label receba A se for entre 17:31 e 03:30 B e entre 03:31 e 7:29 C (A,B,C são os turnos da firma) Obrigado.
USUARIO.EXCLUIDOS 15/03/2005 23:05:34
#73144
Opá cara, agora sim as coisas mudam, eu concertei o código e pelo que eu testei aqui no meu computador deu certo. Você só precisava de colocar a comando "or" para especificar uma função lógica entre os horários. Ficou meio díficil de explicar, leia e interprete a programação que você irá entender.


Private Sub Form_Load()

If Time >= "7:30" Or Time <= "17:30" Then
Label1.Caption = "A"
End If

If Time >= "17:31" Or Time <= "03:30" Then
Label1.Caption = "B"
End If

If Time = "03:31" Or Time <= "07:29" Then
Label1.Caption = "C"
End If

End Sub

Renan Serrano Torres, Grato Por Ajudá-lo[txt-color=#0000ff] [/txt-color]
Tópico encerrado , respostas não são mais permitidas