Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Calculo Hora 24:00 ...
 
Notifications
Clear all

Calculo Hora 24:00 VBA Gera Erro HELP

 
2024 - VBA & Macros
Post Recente por Edupm 7 anos atrás
5 Posts
3 Usuários
0 Reactions
1,537 Visualizações
RSS
 Edupm
(@edupm)
Posts: 0
New Member
Topic starter
 

pessoal tenho 3 textbox

No textbox 1 = hora inicial
No textbox 2 = hora final
No textbox 3 = resultado

Até consegui fazer somar (hora final - hora inicial), mas quando você inseri por exemplo: 24:00 (inicial) - 24:05 (final) da erro tipos incompatíveis, só da certo com horas menores que 24:00

Alguém pode fazer algo simples e eficaz para me ajudar (somar horas com formato superior a 24:00 horas

obrigado,

 
Postado : 06/03/2018 11:37 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Edupm,

Boa tarde!

Anexe aqui no fórum seu arquivo compactado com .ZIP.

 
Postado : 06/03/2018 11:52 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O VBA "entende" como hora até 23:59:59, ou seja um dia. Acima disso e acrescentado 1 (hum dia) e o total de horas até o próximo inteiro

Então não há 24:00 e sim 00:00 ou 00:05, para que a "conta" seja efetuada e preciso "fazer" a conversão algo +/- assim
If left(SeuTextHora,2)=24 then "00:" & right(SeuTextHora,2)

Temos uma gama de topicos sobre horas.
Por exemplo:http://www.planilhando.com.br/forum/viewtopic.php?f=29&t=26414&hilit=+horas+vba
http://www.planilhando.com.br/forum/viewtopic.php?f=29&t=26414&hilit=+horas+vba

 
Postado : 06/03/2018 1:22 pm
 Edupm
(@edupm)
Posts: 0
New Member
Topic starter
 

Edupm,

Anexado. Obrigado Wagner pela atenção!

Boa tarde!

Anexe aqui no fórum seu arquivo compactado com .ZIP.

 
Postado : 06/03/2018 1:40 pm
 Edupm
(@edupm)
Posts: 0
New Member
Topic starter
 

Mas se vc fizer o calculo inserindo 23:00 - 00:10 o resultado não vai ser 01:10, e da erro.

O VBA "entende" como hora até 23:59:59, ou seja um dia. Acima disso e acrescentado 1 (hum dia) e o total de horas até o próximo inteiro

Então não há 24:00 e sim 00:00 ou 00:05, para que a "conta" seja efetuada e preciso "fazer" a conversão algo +/- assim
If left(SeuTextHora,2)=24 then "00:" & right(SeuTextHora,2)

Temos uma gama de topicos sobre horas.
Por exemplo:http://www.planilhando.com.br/forum/viewtopic.php?f=29&t=26414&hilit=+horas+vba
http://www.planilhando.com.br/forum/viewtopic.php?f=29&t=26414&hilit=+horas+vba

 
Postado : 06/03/2018 1:43 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico