[Resolvido]Nesta Função qual é o campo numerio a converter em horas

Boa tarde amigos

Encontrei esta função para converter numeros em horas.

O meu campo numero para transformar em horas chama-se " TxtTotal" aonde é colocado ?

E depois como é chamada a função

Obrigado

Public Function HrStr(dblHora As Double) As String
'Pega um valor numérico e o converte para Horas/Minutos
'Ex: 123,5 = “123:30?
'Ex: 23,9833333333333 = “23:59?

Dim strHoras As String
Dim strMinutos As String

'Pega as horas (parte inteira)
strHoras = CStr(Fix(dblHora))

'Pega os minutos
strMinutos = Format$(Abs((dblHora - Fix(dblHora)) * 60), "00")

‘Verifica se o total de minutos é 60
If strMinutos = "60" Then
strMinutos = "00"
strHoras = CStr(CDbl(strHoras) + 1)
End If

‘Concatena os dois
HrStr = strHoras & ":" & strMinutos

End Function

Olá Assis:

No campo onde pretende o resultado colocar:

=hrstr(Txttotal)

Abraço

Teixeira

Resolvi assim aonde está a vermelho e deu certo.

Obrigado amigo


Public Function HrStr(dblHora As Double) As String
'Pega um valor numérico e o converte para Horas/Minutos
'Ex: 123,5 = “123:30?
'Ex: 23,9833333333333 = “23:59?

Dim StrHoras As String
Dim StrMinutos As String

'Pega as horas (parte inteira)
StrHoras = CStr(Fix(TxtTotal))

'Pega os minutos
StrMinutos = Format$(Abs((TxtTotal - Fix(TxtTotal)) * 60), "00")

‘Verifica se o total de minutos é 60
If StrMinutos = "60" Then
StrMinutos = "00"
StrHoras = CStr(CDbl(StrHoras) + 1)
End If

‘Concatena os dois
HrStr = StrHoras & ":" & StrMinutos

End Function

Olá Assis, ainda bem que resolveu
No entanto, fiquei um pouco confuso.
Como é uma função, não devemos trabalhar campos diretamente, mas sim variaveis.
A ideia de termos uma função é que pode ser chamada em diversas parte da nossa aplicação.

O que poderia estar a faltar é o tipo de dados a passar para a variavel.

Talvez assim resolvesse:
=hrstr(cdbl(txttexto))

Fica esta dica.

Abraço

Está resolvido? Marque "Resolvido"

Boa noite Alexandre

Ao tempo que foi não tem perdão, mas foi no dia anterior a ir para férias o ano passado.