Download
Relação .doc:   15.000  Macros, Funções e  Fórmu
las

Dicas  Excel Macros VBA

Diferença em segundos de uma determinada data até agora

Pergunta:
É possível inserir uma relógio que faz a diferença de data entre uma determinada data o momento de agora e contar os segundos que faz a diferença entre essas datas?


Resposta:
é possível sim, essas macros fazem isso, a segunda pode contar a diferença em segundos entre uma data e outra.
esta macro repete a macro "Relógio_Segundos" a cada 1 segundo!

Sub Relogio_Segundos()
[a2] = Format([a1] - Time, "hh:mm:ss")
Application.OnTime Now + TimeValue("00:00:03"), "Relogio_Segundos"
End Sub

'Este relógio conta os segundos de uma determinada data por exemplo
'neste momento é 02/11/2007 10:49:22 (A1) - e inseri a macro para ver
'a diferença em segundos, acione a macro A2

Sub Relogio_diferença_Segundos()
[a2] = DateDiff("s", Now, [a1]) & " Segundos"
Application.OnTime Now + TimeValue("00:00:01"), "Relogio_Segundos_2"
End Sub