Código VBA para hora negativa

2024 - VBA & Macros

Post Recente por ViiSanches 9 anos atrás

3 Posts

2 Usuários

0 Reactions

1,157 Visualizações

RSS

ViiSanches

(@viisanches)

Posts: 11

Active 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

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

Postado : 28/04/2016 1:54 pm