MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

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

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Assis 1/8/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 ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 1/8/2015, 14:38

    Olá Assis:

    No campo onde pretende o resultado colocar:

    =hrstr(Txttotal)

    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Assis 1/8/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 ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 1/8/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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 10/6/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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Assis 10/6/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 ***

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:02