Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Código VBA para hor...
 
Notifications
Clear all

Código VBA para hora negativa

 
2024 - VBA & Macros
Post Recente por ViiSanches 8 anos atrás
3 Posts
2 Usuários
0 Reactions
1,144 Visualizações
RSS
 ViiSanches
(@viisanches)
Posts: 0
New Member
Topic starter
 

Boa Tarde!

Tenho um programa em VBA, onde ele registra hora de entrada, hora de saída e o tempo de permanência, porém quando coloco na hora de entrada 23:00 e na hora de saida 00:30, ele calcula 23:00 - 00:30 e o tempo de permanência dá 22:30. No caso ele, em tempo de permanência ele teria que aparecer 1:30 e não 22:30.

No excel tem uma formula que dá para fazer isso, só que não consigo aplicar estar formula no VBA. Formula> =MOD(H7-G7;1)

Gostaria de saber qual o código que calcula hora negativa no VBA.

Grato.

 
Postado : 28/04/2016 12:57 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

teste

Sub cc()
Dim A1 As Date, B1 As Date
Dim d As Integer
d = 1
A1 = VBA.TimeValue("23:00:00")
B1 = VBA.TimeValue("00:30:00")
MsgBox CDate((B1 - A1) - (d * Int((B1 - A1) / d)))
End Sub
 
Postado : 28/04/2016 1:54 pm
 ViiSanches
(@viisanches)
Posts: 0
New Member
Topic starter
 

Era isso mesmo amigo.
Muito Obrigado.

 
Postado : 28/04/2016 2:13 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico