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]Converter decimal para Hora

    Compartilhe

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    Registrado : 09/11/2012

    [Resolvido]Converter decimal para Hora

    Mensagem  =>Nois em Sex 11 Set 2015, 07:16

    Olá!

    dúvida cruel como converto o decimal para hora novamente

    ex:

    10,50 para 10:30

    0,66 para 00:40

    3,00 para 3:00 .....



    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    Registrado : 09/11/2012

    Re: [Resolvido]Converter decimal para Hora

    Mensagem  =>Nois em Sex 11 Set 2015, 08:54


    consegui encontrei este módulo feito pelo luiz cláudio

    Perfeito!



    '‘**************************************************
    '‘Módulo escrito por Luiz Cláudio C. V. Rocha
    '‘Data: 20/3/2001
    '‘Funções para se trabalhar com horas acima de 24h
    '‘**************************************************

    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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

      Data/hora atual: Dom 04 Dez 2016, 09:10