Notifications
Clear all

Calculo Hora 24:00 VBA Gera Erro HELP

5 Posts
3 Usuários
0 Reactions
1,547 Visualizações
(@edupm)
Posts: 44
Eminent 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: 0
Illustrious Member
 

Edupm,

Boa tarde!

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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/03/2018 1:22 pm
(@edupm)
Posts: 44
Eminent 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)
Posts: 44
Eminent 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