Código não roda.

Galera, boa tarde!

Por favor, me ajudem com esse código... ele não quer rodar...

Public Function fncturno() As Date
a = #5:59:59 AM#
b = #3:00:00 PM#
c = #9:56:59 PM#
d = #9:57:00 PM#
e = #11:40:00 PM#

With CodeContextObject
hr = Time()
End With
ghora = hr
If ghora > a And ghora <= b Then
fncturno = "A"
End If
If ghora > b And ghora < c Then
fncturno = "B"
End If
If ghora > e And ghora < a Then
fncturno = "C"
End If
If ghora > c And ghora < e Then
fncturno = "BC"
End If
End Function

A ideia e conforme a a string que fncturno recebe a fonte de registro do formulario mude. Aparece um erro onde esta colorido de vermelho e ghora é um variavel global.
Agradeço desde já!

O que é o "CodeContextObject"? Está faltando alguma coisa aí.

Na verdade eu peguei um pedaço destes código que tem a função de pegar a hora atual do sistema e guardar na variavel.

É isso... na verdade eu tenho que referenciar a varialve hr no Wiht!!!! Conseguir o resolver o problema obrigado!

Para pegar a hora atual do sistema, basta algo assim:

Código:

Dim hAtual As Date
hAtual = Time

Na verdade, ou está faltando o complemento desse "CodeContextObject" ou essa linha está sobrando. O With trabalha atribuindo características à um objeto. Por exemplo, se você tem uma caixa de texto e quer formatar vários atributos dela, pode usar o With para não precisar repetir o nome dessa caixa de texto em todas as linhas de formatação. Algo como:

Código:

With Me.NomeDaTextBox
    .ForeColor = vbRed
    .BackColor = vbBlue
    .InputMask = "###.###.###-##"
End With

Observe que tem um End With indicando o fim do processo. Sem o End With, ficaria assim:

Código:

Me.NomeDaTextBox.ForeColor = vbRed
Me.NomeDaTextBox.BackColor = vbBlue
Me.NomeDaTextBox.InputMask = "###.###.###-##"

Bem, se resolveu então está resolvido. Só clicar no botão Resolvido agora.