Este fórum está sendo desativado

[Sandman]

Olá bom dia , estou trabalhando em uma planilha onde tenho uma funcao que pega a hora atual do sistema assim que a funcao é iniciada, e no final da funcao é pego novamente a hora atual do sistema e armazenada em uma segunda variavel, pois bem, esse processamento demora coisa de segundos ou minutos e segundos no maximo, nao chega a ser maior que 1 hora, gostaria de saber se alguem pode me ajudar, pois gostaria de subtrair a da hh:mm:ss da segunda variavel pela hh:mm:ss da primeira variavel, para no final exibir quanto tempo demorou o processamento, porem pelo que pesquisei na net nenhuma forma funcionou para mim, alguem pode me ajudar?

obs* ja tentei usar como data ao inves de string tb as variaveis mas sem sucesso

exemplo estou usando:

Código: Selecionar todos

sub teste()

    Dim t1, t2, total As String

    t1 = Time
   
'procedimentos da funcao 

t2 = time

'aqui eu queria obter a diferenca em minutos e segundos do tempo que demorou para a funcao executar o processamento
'total = t2 - t1    

end sub

desde já agradeço

[gfranco]

Bom dia.
Veja se te ajuda:

Código: Selecionar todos

Sub main()

Dim a As Date, b As Date

a = VBA.CDbl(VBA.TimeValue("23:58:00")) 'aqui a variável a será a hora de início da macro, então ficará a=vba.cdbl(vba.time)
b = VBA.CDbl(VBA.TimeValue("00:03:15")) 'aqui a variável a será a hora de fim da macro, então ficará b=vba.cdbl(vba.time) no final da execução


MsgBox IIf(b < a, VBA.Format(1 + b - a, "hh:mm:ss"), VBA.Format(b - a, "hh:mm:ss"))

End Sub

[Sandman]

@gfranco, obrigado pela resposta sua funcao funciona perfeitamente, mas tentei adapta-la para a minha necessidade e ela apresenta um erro quanto aos minutos, vc poderia me ajudar a entender o porque?

Código: Selecionar todos

MsgBox "O Processamento demorou " & (VBA.Format(t2 - t1, "hh"))  & " horas e " & (VBA.Format(t2 - t1, "mm")) & " minutos e " & (VBA.Format(t2 - t1, "ss")) & " segundos "

eu queria que fosse apresentado assim, mas como o calculo esta acontecendo no mesmo minuto por exemplo inicio 12:15:30 e fim 12:15:45,
esta voltando como resposta por exemplo 00 horas 12 minutos e 15 segundos, ou seja as horas e segundos estao sendo calculadas corretamente mas os minutos nao entendo o porque mas era pra dar zero e esta dando 12

desde já agradeço viu e irei marcar como resposta, so queria entender mesmo o pq isso esta acontecendo

[gfranco]

Amigo, veja se assim te atende:

Código: Selecionar todos

Sub main()

Dim a As Date, b As Date
Dim tempo As Date
a = VBA.CDbl(VBA.TimeValue("23:58:00")) 'aqui a variável a será a hora de início da macro, então ficará a=vba.cdbl(vba.time)
b = VBA.CDbl(VBA.TimeValue("00:03:15")) 'aqui a variável a será a hora de fim da macro, então ficará b=vba.cdbl(vba.time) no final da execução


tempo = IIf(b < a, VBA.Format(1 + b - a, "hh:mm:ss"), VBA.Format(b - a, "hh:mm:ss"))


MsgBox "O processamento demorou: " & VBA.Hour(tempo) & " hora(s), " & VBA.Minute(tempo) & " minuto(s) e " & VBA.Second(tempo) & " segundo(s)"


End Sub

[Sandman]

gfranco, é isso mesmo meu amigo, muito obrigado pela ajuda, abs