Mais Uma Vez Macros!

[Venom Fireman]

Olá diletos companheiros!

Venho até vós novamente com um problema de macros, um não, para falar a verdade dois dele...

Vamos ao primeiro?

Lá vai...

Bem, tenho tentado usar o DateDiff, assim como tentei pelas propriedades do formulário o DifData, em um campo de texto acoplado a uma tabela e também tentei com outro desacoplado, com nenhum funcionou.

Segue a maneira como eu estava tentando usar o datediff:

Function hora_final()
' Função de retorno de diferença de datas.
Dim inicio As String
Dim termino As String
Dim total As String
inicio = Forms!CadManut_Consulta!DataIniAtend
termino = Forms!CadManut_Consulta!DataTermAtend
DateDiff "dd", inicio, termino
End Function

Tentei testar assim também e não deu certo:

Private Sub TotHrTec_GotFocus()
Dim resposta As String
resposta = DateDiff("dd", Forms!CadManut_Consulta!DataTermAtend, Forms!CadManut_Consulta!DataIniAtend)
MsgBox "resposta", vbOKOnly, "Testando"
'Forms!CadManut_Consulta!TotHrTec.Text = DateDiff("dd", Forms!CadManut_Consulta!DataIniAtend, Forms!CadManut_Consulta!DataTermAtend)
End Sub

E mais esse também:

' Private Sub DataTermAtend_LostFocus()
'Dim inicio As Date
'Dim termino As Date
'Dim total As Date
'inicio = Forms!CadManut_Consulta!DataIniAtend
'termino = Forms!CadManut_Consulta!DataTermAtend
'Forms!CadManut_Consulta!TotHrTec = DateDiff("hh", "inicio", "termino")
' End Sub

Nesse último caso ele deu como "Tipos incompatíveis" se tiro as aspas de inicio e termino o erro passa a ser "Argumento ou chamada de procedimento inválida."

Vocês poderiam me ajudar a achar onde está o erro aí?

Muito obrigado, senhores!

[MrMALJ]

Fera dá uma olhada neste Artigo do JRs, creio que mate a charada pra você

http://www.jrfaq.com/default.asp?http%3A//...26search%3Dhora

Nos avise se deu certo ok!