[Resolvidos]Transportar e converter hora para periodos de tempo

Olá amigos do mágico mundo do Access, boa tarde a todos

Mais uma vez precisando de ajuda no meu estudo.
antes procurei neste forum, mas não achei a seguinte questão:


1 -tenho uma txtHora e gostaria de transformá-lo em periodos de 3 horas em outra TxtPeriodo, ex.:

txtHora= "01:50" então txtPeriodo = "00 as 03"
txtHora= "03:20" então txtPeriodo = "03 as 06"


2- gostaria de fazer isso, também, atraves de consulta sql, consultando os registros por período de tempo


Obrigado a todos,


Irailson

Uma dica seria:

If Format(txtHora, "hh") < 3 Then
Me.txtPeriodo = "De 00 às 03"
ElseIf Format(txtHora, "hh") >= 3 And Format(txtHora, "hh") < 6 Then
Me.txtPeriodo = "De 03 às 06"
ElseIf Format(txtHora, "hh") >= 6 And Format(txtHora, "hh") < 9 Then
Me.txtPeriodo = "De 06 às 09"
...
End If

Não sei exatamente o que precisa, mas acho que por aí dá para ter uma ideia. Estou considerando que txtHora está formatado como Hora.

Olá Criquio, boa tarde (se estiveres no brasil)

Obrigado pela interferência.

seu código resolve a questão 1- (conversão no formulário)
você tentar coloca-la em um modulo com uma função Case Select

Agora a questão 2 é como posso fazer isso em numa consulta? é possivel?

grato, Irailson

Numa consulta seria algo mais ou menos assim:

Intervalo: SeImed(Esquerda([hora];2)<3;"De 00 às 03";SeImed(Esquerda([hora];2)>=3 E Esquerda([hora];2)<6;"De 03 a 06";"..."))

Incremente para os outros valores.

OK! Criquio,
vou testar depois respondo,

obrigado

Viva quem sabe, amigos

Muitiiisssimo obriiiiiiiiiiiiiiiiigado Criquio.

Espero um dia poder contribuir de alguma forma, estarei na"labuta" por isto.



Abraços,

Irailson

Eu tambem estou aprendendo ainda. Sou novato em vba e expressões para consulta ainda, mas juntos chegaremos lá.