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

    Calculo de datas em Formulário Access

    Compartilhe

    FMariquito
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 16/04/2018

    Calculo de datas em Formulário Access

    Mensagem  FMariquito em Ter 12 Jun 2018, 15:25

    Boa Tarde

    Tenho um formulário de pacientes num hospital, e estou com um problema. Quero colocar um campo em que seja calculado o tempo de espera do paciente até ser observado por um médico. Sendo que as datas não podem interferir. Vou tentar explicar.
    ou seja:

    Exemplo:

    Paciente deu entrada às 23:45h dia 23/05/2018

    Paciente observado às 02:35h dia 24/05/2018

    Ou seja pretendo que seja calculado o tempo que o paciente esteve à espera para ser observado. Das 23:45 até às 02:35, isto sem a mudança de dia interferir nos cálculos.

    Obrigado


    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 18/01/2013

    Re: Calculo de datas em Formulário Access

    Mensagem  CassioFabre em Ter 12 Jun 2018, 17:59

    Boa tarde,

    Segue:
    Código:
       Dim h As Double
        
        h = DateDiff("n", d1, d2)
            
        MsgBox "O paciente ficou esperando pelo tempo de " & Int(h / 60) & "h:" & (h / 60 - Int(h / 60)) * 60 & "min."

    Onde d1 e d2 são os campos onde contém as datas/horas de entrada (d1) e atendimento (d2). Esses campos devem ser formatados com o formato Data Geral e serem preenchidos na forma
    Código:
    dd/MM/yyyy hh:mm:ss

    Abraço.


    .................................................................................
    Só não tem código pra morte!

    FMariquito
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 16/04/2018

    Re: Calculo de datas em Formulário Access

    Mensagem  FMariquito em Qua 13 Jun 2018, 11:01

    Bom dia

    Agradeço a resposta, no entanto tenho uma dúvida. Eu sou ainda principiante em VBA.

    Eu não pretendo que seja exibida uma mensagem com o resultado obtido, o que pretendo é:


    Hora de entrada (Caixa de texto para registar a hora de entrada)

    Paciente observado (Caixa de texto para registar a hora que foi observado

    Diferença (caixa de texto onde vai aparecer o valor da diferença entre a hora de entrada e de ser observado)

    Dúvida 2:

    Nesta caixa de texto onde pretendo que seja exibido o valor da diferença, no construtor de código é que vou colocar o código que me forneceu na msg anterior certo?


    Obrigado
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 18/01/2013

    Re: Calculo de datas em Formulário Access

    Mensagem  CassioFabre em Qua 13 Jun 2018, 11:11

    Bom dia,

    Coloquei numa msgbox justamente por ser um modelo. Aqui no fórum costuma funcionar assim: quando você não posta um exemplo do seu banco de dados, quem responde a dúvida posta um modelo mais genérico e você adapta pro seu caso específico (neste caso ou invés da msgbox, colocar numa textbox). Mas é bem simples. Substitua o trecho da msgbox no código que mandei pelo seguinte:
    Código:
    txtDiferença = Int(h / 60) & "h:" & (h / 60 - Int(h / 60)) * 60 & "min"

    Você pode colocar esse código no evento "Após atualizar" do campo "Paciente observado" já que em teoria essa conta só será feita quando o paciente entrar no consultório.

    Abraço.


    .................................................................................
    Só não tem código pra morte!

    FMariquito
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 16/04/2018

    Re: Calculo de datas em Formulário Access

    Mensagem  FMariquito em Qua 13 Jun 2018, 11:43

    Compreendo.

    No anexo, está uma imagem de um exemplo do que pretendo programar. Espero ser perceptível.

    Explicando:

    Nas caixas de texto de "Inicio dos sintomas" e "Primeiro contacto médico" são introduzidas as horas dos acontecimentos (podendo, como já referi anteriormente, a data mudar, ou seja, o inicio dos sintomas ser às 23:45h 25/01/2018 e o primeiro contacto médico ser às 00:15h 26/01/2018). Esta contabilização do tempo que o paciente esteve à espera será apresentada no "Atraso do Paciente" automaticamente após a introdução das horas dos acontecimentos referidos.
    Espero ter sido objectivo na minha explicação.


    Mais uma vez obrigado
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 18/01/2013

    Re: Calculo de datas em Formulário Access

    Mensagem  CassioFabre em Qua 13 Jun 2018, 12:08

    Veja o modelo em anexo.
    Anexos
    Database2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (42 Kb) Baixado 3 vez(es)


    .................................................................................
    Só não tem código pra morte!

      Data/hora atual: Qua 20 Jun 2018, 12:42