[Resolvido]Variavel com o valor hora

Meus queridos, bom dia!!!

Estou com dificuldade em desenvolver esse codigo, na verdade sou iniciante em programação e estou quebrando a cabeça para programar... Abaixo tem o codigo que estou desenvolvento. A variavel public hor esta perdendo o valor quando o terminar "laço" vejam:

Option Compare Database
Public hora As hora
Type hora
hor As Date
End Type

Function Macro1()


With CodeContextObject
.DataPedidoC = Date
.HoraPedidoC = Time()
hor = Time() ' Aqui ele recebe a hora atual do sistema.
End With
hor = hor ' Fiz um teste e aqui ela ainda se encontra com o valor.

End Function

Public Function fnchora() As Date

fnchora = hora.hor ' Quando chamo essa função a variavel já não tem o valor... estou fazendo algo errado? Obrigado a

End Function ' todos!!

Ola seja bem vindo ao fórum;

Faça deste jeito;


Global xhora As Date


Public Function Macro1()
With CodeContextObject
.DataPedidoC = Date
.HoraPedidoC = Time()
hor = Time() ' Aqui ele recebe a hora atual do sistema.
End With
xhora = hor ' guarda a variavel
End Function


Public Function fnchora() As Date
fnchora = xhora
End Function


Também pode utilizar a função interna TempVars.Add para guardar variaveis.

Observação:
Não inserir a variavel no VBA dos formularios ou relatorios, insira num modulo o Global xhora As Date