Calculo de datas em Formulário Access

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

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.

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

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.

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

Veja o modelo em anexo.