[Resolvido]Calculo de Turnos de Trabalho

Boa tarde a todos,

Mais uma vez venho pedir a ajuda de vocês mestres,

tenho uma tabela que me trás um campo que me trás a data e hora que o produto é produzido, nesse formato:

2013-01-23 05:07:02.000

Até ai tudo bem, consegui criar os campos data e hora a partir desse campo.

Mas preciso calcular em que turno o produto foi produzido, por exemplo:

das 07:00hs às 15:25hs tenho o 1º Turno
das 15:20hs às 23:32hs tenho o 2º Turno
das 23:27hs às 07:05hs tenho o 3º Turno

Então o exemplo acima foi produzido no 3º Turno.

Então é isso,
Baseado nos horários de turno acima praciso saber em qual turno o produto foi produzido.

Obrigado.

Boa noite,
Crie uma função que recebe a hora como argumento e devolve o turno como resultado

Boa tarde Mestre Alexandre,
Mil desculpas.....vc poderia me ajudar...sinceramente, não sei como montar essa função.

Muito obrigado.

Com permissão do mestre Alexandre,

Fiz uma pequena modificação nos intervalos para não gerar conflito:

Cole esta função em um módulo:

Código:


Public Function Posiciona_Turno(DtProducao As Date)

Dim ParamHora As Date

ParamHora = Format(DtProducao, "hh:mm:ss AM/PM")

If ParamHora >= #7:00:00 AM# And ParamHora <= #3:25:00 PM# Then
  Posiciona_Turno = "1º Turno"
 
ElseIf ParamHora >= #3:25:00 PM# And ParamHora <= #11:25:00 PM# Then
  Posiciona_Turno = "2º Turno"
 
ElseIf ParamHora >= #11:25:00 PM# And ParamHora <= #11:59:59 PM# Then
  Posiciona_Turno = "3º Turno"
 
ElseIf ParamHora >= #12:00:00 AM# And ParamHora <= #7:00:00 AM# Then
Posiciona_Turno = "3º Turno"

End If

End Function


Crie um campo na sua consulta:

Turno: Posiciona_Turno([SeuCampoDatadaProdução])

Sds,

Muito Obrigado,
Mestre Alexandre e Mestre Chsestrem,

Perfeito, mais uma vez vocês me salvam.

Grande Abraço.