Acionar um botão após a data estar igual a data atual

#1

Boa noite, gostaria de saber se tem como fazer para acionar o botão após comparar a data atual com a data colocada no DataHora, por exemplo, se a data hora for menor que a data atual ela ficar em loop até chegar a hora certa e acionar o botão.

Tentei comparar por uma tag demo, por uma tag timer, fiz uns if e else mais não obtive sucesso, unica coisa que consegui é escolher a data e executar o botão.

Sub spDataInicial4_Click()
if Application.ShowDatePicker (DataHora, 0 , 0) Then
value = DataHora
end if
Parent.Item(“CommandButton5”).Value = true
End Sub

Agradeço desde já.

#2

Oi William, bom dia!

Para trabalhar com acionamento de dispositivos em horários definidos, recomendo a utilização da TagTimer do E3.
Para mais informações consulte o artigo: KB-25590: Como funciona um Tag Timer. (link: http://kb.elipse.com.br/pt-br/questions/229/KB-25590%3A+Como+funciona+um+Tag+Timer.)

Att,
Marco Antonio

#3

Obrigado pela resposta Marcos, consegui resolver parcial o meu problema, porém, agora falta um detalhe:

Fiz um setpoint para alterar o StartTime, deixo o TriggerType em Single para executar quando der a hora do startime, porém, tentei realizar o acionamento de um botão por OnPreset e ele não executa, tem outro metodo pra utilizar?

Sub Ligarele1_OnPreset()
Parent.Item(“CommandButton5”).Value = true
End Sub

Ele deveria acionar assim quando chegasse o no Startime, não?

#4

Willian, por favor baixe e execute a aplicação do link https://goo.gl/ccRTnp e veja se é mais ou menos isso que você está tentando fazer.

Qualquer coisa é só falar!

1 Like