MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Sab 01 Ago 2015, 13: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 ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Sab 01 Ago 2015, 14:38

    Olá Assis:

    No campo onde pretende o resultado colocar:

    =hrstr(Txttotal)

    Abraço
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Sab 01 Ago 2015, 16: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 ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Sab 01 Ago 2015, 21: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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6312
    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, 22: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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Sex 10 Jun 2016, 22: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: Qua 23 Ago 2017, 01:42