Pessoal,

Estou tentando criar uma função que verifique se um determinado evento ocorreu no 1º ou no 2º turno de trabalho da empresa.
Cada setor, começa os turnos (todos de 12h )em horários destintos.

Assim, estou tentando criar uma função onde eu informo a hora da ocorrência e a hora em que começou o turno, faça os cálculos e retorne a informação "1º Turno" ou "2º Turno".
Tá dando erro no IF

Function IdTurno(dthora, dtturno)
'Dim dthora, dtturno As Date
Dim txt As String
txt = "2º Turno"
If dthora >= dtturno And dthora < (dtturno + 0.5) Then txt = "1º Turno"
End If
IdTurno = txt
End Function