voltar

Pergunta:

Preciso fazer certos cálculos tendo como ponto de partida a hora atual mais 10 segundos.  Meu problema é como acrescentar esses 10 segundos ! como posso fazer isso

Resposta:

crie uma variável e chame-a por exemplo de " Fiz "
Faça então :

Function Fiz(x as string)
Fiz = Now( ) + TimeValue(x)
End function

Selecione uma célula qualquer da planilha e escreva =Fiz ("00:00:05")
'..............'

Outra solução
Se você quiser adicionar uma rotina decorridos 10 segundos faça :

Sub Inicio( )
MsgBox "Aprender Excel VBA ", “http://www.saberexcel.com”
Application.OnTime Now + TimeValue("00:00:05"), _ "Passaram_10_Segundos
End Sub
'..............'
Sub Passaram_10_Segundos()
MsgBox "Bom Aprendizado!",,"Site de pesquisa e estudos vba"
End Sub
'..............'
A mensagem "Bom Aprendizado" será apresentada 10 segundos após você ter executado a rotina Inicio
 

                                                                                     Voltar