MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

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

    Mensagem  Assis em Sab 01 Ago 2015, 05:44

    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


    .................................................................................
    *** Só sei que nada sei ***

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Sab 01 Ago 2015, 06:38

    Olá Assis:

    No campo onde pretende o resultado colocar:

    =hrstr(Txttotal)

    Abraço

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

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

    Mensagem  Assis em Sab 01 Ago 2015, 08:46

    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


    .................................................................................
    *** Só sei que nada sei ***

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Sab 01 Ago 2015, 13:13

    Olá Assis, ainda bem que resolveu Wink
    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

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves em Sex 10 Jun 2016, 14:08

    Está resolvido? Marque "Resolvido"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

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

    Mensagem  Assis em Sex 10 Jun 2016, 14:45

    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.


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: Sab 03 Dez 2016, 07:37