Função Hora. Ajuda!

[Guijeta]

Obrigado por ver a minha questao!
Por que quando coloco a Funcao Hora dentro de uma sub o sistema nao reconhece como uma funcao valida?
Segue exemplo

Sub Cumprimento()
    If Hora < 0.5 Then MsgBox "Bom dia"
End Sub

Hora sempre aparece como vazio!
Obrigado

 

[Greg Truby]

¿Ésto le ayuda?

Sub foo()
    Dim strMensaje As String
    If Time < 0.5 Then
        strMensaje = "buenos días"
    ElseIf Time < 0.75 Then
        strMensaje = "buenas tardes"
    Else
        strMensaje = "buenas noches"
    End If
 
    MsgBox strMensaje, vbInformation, "Hola"
 
End Sub

 

[Guijeta]

Greg, mi problema es cuando utilizo la función "Time"
Es como si no existiera en mi Excel! :S

 

[Greg Truby]

¿Cuál versión está usando?

EDIT --¿Y estamos hablando de VBA, y no la hoja, verdad?

 

[Guijeta]

Hola Greg,
Yo uso una versión 2007 del Office, que debe tener algo de diferente porque la misma macro en un 2003 sale bién...
gracias

 

[Norie]

Intento que comprueba debajo de Tools> Referencias… en el redactor de VBA.

 

[Greg Truby]

Debe de funcionar. Me funciona en 2007. ¿Qué resultados da esto?

Sub foo2()
    Dim strMensaje As String, _
        dblTime As Double
        
    dblTime = Now - Date
    
    MsgBox Format(dblTime, "hh:mm:ss")
    
    If dblTime < 0.5 Then
        strMensaje = "buenos días"
    ElseIf dblTime < 0.75 Then
        strMensaje = "buenas tardes"
    Else
        strMensaje = "buenas noches"
    End If
 
    MsgBox strMensaje, vbInformation, "Hola"
 
End Sub

 

[Guijeta]

Hola Greg,
si funciona si defino "dblTime" como "Now - Date"
Gracias,
Saludos.