Excel vba divisão de turnos de produção

[JOLIVEIRASILVA]

Bom dia.

 

Estou criando uma planilha para controle de produção e divisão dos horários dos turnos de produção com o codigo abaixo. na celula que deveria retornar "3° TURNO" está retornando "0".  podem me ajudar ?Quadro Produção.zip

Public Function Turno(hr As Date)

hr = Format(hr, "hh:mm:ss")

Select Case hr
    Case #6:00:00 AM# To #2:00:00 PM#
        Turno = "1° TURNO"
    Case #2:01:00 PM# To #10:00:00 PM#
        Turno = "2° TURNO"
    Case #10:01:00 PM# To #5:59:00 AM#
        Turno = "3° TURNO"
   
End Select

End Function

 

[Patropi]

Boa tarde, @JOLIVEIRASILVA

 

Veja se baseado na minha planilha com fórmulas, você consegue corrigir o teu código VBSA.

 

[]s

Digitar a hora e retornar o turno.xlsx

[OreiaG]

Substitua:  

 Case #10:01:00 PM# To #5:59:00 AM#
        Turno = "3° TURNO"

 

Por:

Case Else: Turno = "3° TURNO"

 

Ou por:

Case Is > #10:00:00 PM#, Is < #6:00:00 AM#: Turno = "3° TURNO"

 

[JOLIVEIRASILVA]

Não deu certo.Controle e Planejamento de Produção .xlsControle e Planejamento de Produção .xls

deu certo..... obrigado!!!