MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Cálculo de horas

    avatar
    rmjsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 84
    Registrado : 31/10/2014

    Cálculo de horas Empty Cálculo de horas

    Mensagem  rmjsantos em 20/1/2020, 15:23

    Boa tarde

    Tenho um formulário com dois campos de data/hora inicio e data/hora fim que ao inserir os dados faz a diferença de tempo usado no serviço efetuado.
    O problema é que se tenho o campo data/hora inicio sem dados dá erro.
    Outra situação que acontece é também assim que insiro os kms finais de uma determinada viatura, esses mesmo quilómetros aparecem no registo novo da mesma viatura e até aqui tudo bem.
    O problema é que se altero os kms finais de um registo anterior por novos kms ele não atualiza os quilómetros nos registos seguintes.
    Será que é possível ao alterar os kms atualizar todos ors registos seguintes de forma a atualizar os kms reais e fazer o cálculo dos kms percorridos.
    Tenho um módulo que vi num exemplo, não sei se estou a fazer bem, no entanto, se alguém puder ajudar agradecia muito.

    Anexo base dados.

    Obrigado e abraço a todos.
    Anexos
    Cálculo de horas AttachmentPlanViaturas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.7 Mb) Baixado 19 vez(es)
    avatar
    rmjsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 84
    Registrado : 31/10/2014

    Cálculo de horas Empty Re: Cálculo de horas

    Mensagem  rmjsantos em 21/1/2020, 11:17

    alguém poderá ajudar?
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 11/11/2009

    Cálculo de horas Empty Re: Cálculo de horas

    Mensagem  scandinavo em 21/1/2020, 19:04

    Para o caso das horas

    coloque no começo do código


    On Error Resume Next '*************

    Dim TotalHours As Long, TotalMinutes As Long, TotalSeconds As Long
    Dim Hours As Long, Minutes As Long, Seconds As Long

    Days = Int(CSng(Interval * 24))
    TotalHours = Int(CSng(Interval * 24))
    TotalMinutes = Int(CSng(Interval * 1440))
    TotalSeconds = Int(CSng(Interval * 86400))
    Hours = TotalHours Mod 24
    Minutes = TotalMinutes Mod 60
    Seconds = TotalSeconds Mod 60

    GetElapsedTime = Days & " Horas " & Minutes & _
    " Minutos "
    End Function



    para os km fica para depois
    avatar
    rmjsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 84
    Registrado : 31/10/2014

    Cálculo de horas Empty Re: Cálculo de horas

    Mensagem  rmjsantos em 21/1/2020, 21:15

    Scandinavo muito obrigado pela sua ajuda.
    Fiz como disse e deu certo.
    Muito bem.
    Agora só falta mesmo a situação de atualizar os kms nos registos seguintes se por qualquer razão alterar os kms finais de um registo anterior.
    Obrigado.

      Data/hora atual: 24/9/2020, 05:02