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

    Compartilhe
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Converter decimal para Hora

    Mensagem  =>Nois em Sex 11 Set 2015, 12: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... Descanse e tente novamente!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Converter decimal para Hora

    Mensagem  =>Nois em Sex 11 Set 2015, 13: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... Descanse e tente novamente!

      Data/hora atual: Dom 24 Set 2017, 02:14