[Resolvido]Diferença entre os Campos com hora

Bom dia a todos eu estou mais uma vez para solicitar a ajuda de vocês estou tentando ver a diferença entre dos Campos com horas ou seja tenho um campo "horaAtual" e campo "txthoraDesliga" porém gostaria de ver a diferença entre estás duas horas sempre que tento fazer está dando incompatível porém todos os campos são desacoplado

BOa noite amigo. Não entendi muito não, mas vê se é isso.

Código:

Me.txtReceberDiferencaDeHoras = Abs(Format(([txtHoraAtual] - [txtHoraDesliga]) * 24, "#0.0"))

não fiz o teste da uma olhada ai

Boa noite meu amigo continua com mesmo erro teria como mandar um exemplo por favor

Defina o Formato na folha de propriedade de cada campo como hora abreviada (hh:mm). Isso é um nº para o sistema.
Daí, tendo os 2 campos (ou variáveis) para o cálculo, basta fazer a diferença entre eles. A resposta estará no mesmo formato (hh:mm).

Espero ter ajudado.

Muito obrigado todos são desacopla

Boa tarde irmão. Somos desacoplados Marcelo, rs.

Testei aqui, esse da certo.

Código:

Me.txtReceberDiferencaDeHoras =CDate(Me.txtHoraAtual - Me.txtHoraDesliga)

bom dia meu amigo agora eu descobri porque o meu sempre esta dando incompativel esta hora atual nao e digitada e sim esta vindo do time()
ou seja estou tentando fazer da seguinte forma
me.horaAtual=format(time(),"hh:nn:ss")
Me.txtReceberDiferencaDeHoras =CDate( Me.txtHoraDesliga - horaAtual) 'esta horaAtual esta vindo do time()
meu proposito seria quandotxtReceberDiferencaDeHoras = 30 segundo me informar uma mensagem que o pc iria desligar

vale lembrar que da forma que voce fez funcionou porem tinha me esquecido de avisar que esta horaAtual seria um time()

boa noite meu amigo infelizmente ainda não deu certo eu tinha me expressado mal porque somar um time()com um campo de hora esta dando incompatibilidade ja da forma que você fez são os dois campos digitavel por isso não da erro

Boa noite meu amigo. Deu certo não pelo fato do time? O time já tem seu formato.
tenta essa.

Código:

Me.Texto14 = "A diferença de horas é: " & Format((Me.txtHoraAtual - Me.txtHoraDesliga), "hh:nn:ss")


vou ver aqui em um sistema que eu fiz com horas.

Boa tarde Marcelo. Qual é o objetivo do processo do seu sistema?
ao abrir ele recebe o time e voce clica em um botão que pega a hora final é isso?

Boa tarde a finalidade é um sistema para desligar PC , reiniciar, desligar monitor com hora programada esta funcionando perfeitamente porém este código é para me emitir um aviso quando faltasse 30 segundos para desligar

Marcelo , boa noite estava fazendo aqui uns teste , o código que te passei está certo o resumo disso é você separar os segundos em outro caixa e colocar um if =30 then ...
Só não entendi seus cbos por isso não alterei seu anexos.
Da uma olhada aí.

Código:

Private Sub Comando16_Click()
     Me.txtHoraDesliga = Time
     Me.txtReceberDiferencaDeHoras= Format((Me.txtHoraAtual - Me.txtHoraDesliga), "hh:nn:ss")
     Me.txtreceberMinutos= Format([txtReceberDiferencaDeHoras], "ss")
 If Me.txtreceberMinutos= 30 Then
    MsgBox " !!! ATENÇAO !!! O computador vai desligar em 30 segundos. Salve os documentos.",vbinformation, ""
    chama modulo
 End If
End Sub

Private Sub Form_Load()
  Me.txtHoraAtual = Time
End Sub

Qualquer coisa estou na sala se quiser entrar estarei online ate 00:30
[url=https://sala crys

Bom dia crysostomo desde já me desculpe pelo trabalho e também pela demora em responder depois de muitas tentativas deu certo fiz algumas alterações mais pegando o seu exemplo acabou dando certo obrigado meu amigo. Estou no celular agora depois eu envio as mudanças pra vc obrigadoooooooo

Bom dia amigo , envia sim vai ajuda.
Vlw
Sucesso