Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Conectar-se  

Compartilhe | 
 

 Calculo entre horários

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Anacleto



Mensagens : 86
Data de inscrição : 04/04/2012

MensagemAssunto: Calculo entre horários   Qua Mar 05, 2014 5:48 pm

Bom dia!

Segue abaixo o link de uma planilha exemplo:

4shared.com/file/3O2ej4w-ce/Calculo_entre_Horas_VBA.html

Preciso resolver este problema, quando é digitado um valor de hora acima de 24:00 e a pessoa que estiver digitando o valor hora digitar desta forma 24:00 gera um erro no código

Private Sub Tb_Resultado_Enter()

Me.Tb_Resultado = Format(24 - (1 - (TimeValue(Me.Tb_H_Saida) - TimeValue(Me.Tb_HoraProj))), "hh:nn")

End Sub
Se digitar o valor horas desta forma 00:00 o calculo é efetuado com sucesso. Desta forma preciso bloquear para que não possa digitar com esse formato 24:00, ou até pode digitar mas que seja transformado para 00:00.

Outra solução que vejo é criar um tratamento deste erro, porem não consegui monta-lo.

desde já agradeço a atenção de todos!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba

avatar

Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Calculo entre horários   Qui Mar 06, 2014 9:09 pm

Boa tarde!!!

Eu não sei se entendi, mas já tentou..
Código:
Private Sub Tb_Resultado_Enter()
    If Me.Tb_HoraProj = "24:00" Then
        MsgBox "Favor digitar valor menor que 24Hrs"
        Exit Sub
      Else
        Me.Tb_Resultado = Format(24 - (1 - (TimeValue(Me.Tb_H_Saida) - TimeValue(Me.Tb_HoraProj))), "hh:nn")
    End If
End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Calculo entre horários
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Resolvido]Calculo entre datas direto no relatório
» [Resolvido]Relacionamnento entre formulários
» [Resolvido]Como armazenar um soma ou calculo em um campo do formulario.
» Aprenda a fazer comentários construtivos
» Pegar o texto entre tags!

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: