DATA E HORA COMO TRABALHAR?

USUARIO.EXCLUIDOS 09/04/2007 11:19:51
#210801
OPA.. CAROS AMIGOS ESTOU TENTANDO DESENVOLVER UM APLICATIVO.. E PRECISO DETERMINAR O DIA E HORA PARA ACONTECER DETERMINADA FUNÇÃO.. COMO POSSO FAZEER ISSO JÁ TENTEI DE TUDO SE PUDEREM AJUDAR.. GRATO UM APRENDIZ..
USUARIO.EXCLUIDOS 09/04/2007 11:28:48
#210805
vc precisaria fazer tal verificação dentro de um timer...

ai para verificar se chegou tal dia e hora vc faz assim:


If cdate("09/04/2007 16:00") = CDate(Format(now,"DD/MM/YYYY HH:MM")) then
   'Realizar operações necessárias
end if
USUARIO.EXCLUIDOS 09/04/2007 20:20:03
#210890
MARCELOHF! Só completando a sua resposta.pois pode ser útil pra alguém.

vc coloca no timer1 assim:
Timer1.enable = false'(Desabilita o timer)
interval = 1000'(Representa um segundo)a cada segundo o timer executa

no load do form ative o timer assim:

Private Sub Form_Load()
Timer1.Enabled = True'(Ativa o timer)
End Sub


Private Sub Timer1_Timer()
If cdate("09/04/2007 16:00") = CDate(Format(now,"DD/MM/YYYY HH:MM")) then
   'Realizar operações necessárias
end if
End Sub


espero ter contribuido.
USUARIO.EXCLUIDOS 10/04/2007 01:00:37
#210906
ouou.. obrigado vc's são d++ foi de grande ajuda espero em breve estar ajudando alguen..
USUARIO.EXCLUIDOS 10/04/2007 13:32:27
#211014
Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If CDate("10/04/2007 13:29") = CDate(Format(Now, "DD/MM/YY HH:MM")) Then
MsgBox "testando o codigo", vbCritical
End If

End Sub



fiz desta maneira mas não deu certo!!!
USUARIO.EXCLUIDOS 10/04/2007 13:34:13
#211015
alguem sabe o por que????????
USUARIO.EXCLUIDOS 10/04/2007 13:48:02
#211021
nesta data vc tem 4 digitos para o Ano
CDate("10/04/2007 13:29")


Ja nesta vc formatou com somente 2
CDate(Format(Now, "DD/MM/YY HH:MM"))



Coloque assim
CDate(Format(Now, "DD/MM/YYYY HH:MM"))
USUARIO.EXCLUIDOS 10/04/2007 13:53:12
#211023
ah...

Verifique também a propriedade Interval do Timer, ela tem que estar preenchida com um valor maior que 0
USUARIO.EXCLUIDOS 10/04/2007 13:55:24
#211024
okok vou fazer os testes e posto aki obrigado..
USUARIO.EXCLUIDOS 10/04/2007 14:03:43
#211029
valewwww agora sim funcionando tudo corretamente......se alguem queser o arquivo ou precisar eu mando...
USUARIO.EXCLUIDOS 10/04/2007 14:05:35
#211030
Diego,

Se já está tudo funcionando, não esqueça de encerrar o tópico.
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar