[resolvido] Calcular data e hora

Moderador: Avelino Sampaio

Rcardoso77
Mensagens: 21
Registrado em: 27 Jan 2016, 16:48

[resolvido] Calcular data e hora

Mensagempor Rcardoso77 » 11 Nov 2016, 17:02

Pessoal boa Tarde!

Preciso criar uma consulta aonde com a data ele identifica o dia da semana e através do horário ele informa se o atendimento está dentro do horário ou fora do horário. abaixo seria os campos a regra seria o seguinte.

De segunda a sexta 08:00 as 19:00 - "Dentro do Horário" após as 19:00 "Fora do Horário"
Sabado da 08:00 as 12:00 "Dentro do Horário" após as 12:00 "Fora do Horário"
Domingo "Fora de Horário"



Dt Alta Hr ALTA dia semana Status Atendimento
31/12/2015 01:21:35 Quinta Fora do Horário
04/01/2016 09:48:40 Segunda Dentro do Horário
05/01/2016 17:49:22 Terça Dentro do Horario
03/01/2016 11:00:00 Domingo Fora de Horário

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 2102
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Calcular data e hora

Mensagempor Avelino Sampaio » 11 Nov 2016, 17:28

Cardoso,

exitem atendimentos também em feriados ?

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
Avelino Sampaio
Mensagens: 2102
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Calcular data e hora

Mensagempor Avelino Sampaio » 11 Nov 2016, 17:55

Cardoso,

segue exemplo. A função usada na consulta foi esta:

Código:
Public Function fncStatus(da As Date, ha As Date)
Dim j As Boolean
Select Case Weekday(da)
Case 2 To 6
If Eval("#" & ha & "#" & " Between #08:00:00 AM# AND #07:00:00 PM#") Then j = True
Case 7
If Eval("#" & ha & "#" & " Between #08:00:00 AM# AND #12:00:00 PM#") Then j = True
End Select
If j Then
fncStatus = "Dentro do horário"
Else
fncStatus = "Fora do horário"
End If
End Function


Aguardamos
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Rcardoso77
Mensagens: 21
Registrado em: 27 Jan 2016, 16:48

Re: Calcular data e hora

Mensagempor Rcardoso77 » 11 Nov 2016, 17:58

Avelino

Boa Tarde!

Os Feriados são Considerados como atendimento "fora de horarios"

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 2102
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Calcular data e hora

Mensagempor Avelino Sampaio » 11 Nov 2016, 18:14

Cardoso,

cri uma tabela, contendo os feriados e acrescente a parte vermelha ao código:

Código:
Public Function fncStatus(da As Date, ha As Date)
Dim j As Boolean
if DCount("*","tblFeriados","DataFeriado = #" & format(da,"mm/dd/yyyy") & "#") > 0 then
fncStatus = "Fora do horário"
exit function
end if

Select Case Weekday(da)
Case 2 To 6
If Eval("#" & ha & "#" & " Between #08:00:00 AM# AND #07:00:00 PM#") Then j = True
Case 7
If Eval("#" & ha & "#" & " Between #08:00:00 AM# AND #12:00:00 PM#") Then j = True
End Select
If j Then
fncStatus = "Dentro do horário"
Else
fncStatus = "Fora do horário"
End If
End Function
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Rcardoso77
Mensagens: 21
Registrado em: 27 Jan 2016, 16:48

Re: Calcular data e hora

Mensagempor Rcardoso77 » 11 Nov 2016, 18:28

ok Avelino

Vou criar a tabela de feriado e te dou um retorno desde já muito obrigado

Rcardoso77
Mensagens: 21
Registrado em: 27 Jan 2016, 16:48

Re: Calcular data e hora

Mensagempor Rcardoso77 » 11 Nov 2016, 18:39

Avelino

Boa tarde Criei a tabela modifiquei o código conforme vc informou mais dei esse erro
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Avatar do usuário
Avelino Sampaio
Mensagens: 2102
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Calcular data e hora

Mensagempor Avelino Sampaio » 11 Nov 2016, 18:47

cardoso,

reveja se esta falatando um "y"

... format(da,"mm/dd/yyyy") ...

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Rcardoso77
Mensagens: 21
Registrado em: 27 Jan 2016, 16:48

Re: Calcular data e hora

Mensagempor Rcardoso77 » 11 Nov 2016, 18:51

Boa Tarde


Avelino

Isso mesmo esta faltando "y" como vc mencionou.


Muito Obrigado ficou show

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Consultas”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes