PROBLEMA COM HORA
Cara deixa eu explicar melhor;
O teu exemplo é perfeito, adicionei a ele dois label,s.Não retirei nada. Estes label,s recebem a data e a hora de uma outra máquina na rede (através de uma função que pega a data e a hora do servidor). Comparo a data e a hora da maquina local que esta nos componentes Dtpicker com a data e a hora dos label,s . Para ai , se a data e a hora da máquina local não for a mesma da do servidor então ajusto o horario. O problema é que quando o label que recebe a hora la do servidor fica estavel, não fica sincronizando. Queria algo como pegar a hora que tá lá no label e ir encrementando a cada segundo.Só não sei como.
Valeu....
espero que tenha sido claro...
O teu exemplo é perfeito, adicionei a ele dois label,s.Não retirei nada. Estes label,s recebem a data e a hora de uma outra máquina na rede (através de uma função que pega a data e a hora do servidor). Comparo a data e a hora da maquina local que esta nos componentes Dtpicker com a data e a hora dos label,s . Para ai , se a data e a hora da máquina local não for a mesma da do servidor então ajusto o horario. O problema é que quando o label que recebe a hora la do servidor fica estavel, não fica sincronizando. Queria algo como pegar a hora que tá lá no label e ir encrementando a cada segundo.Só não sei como.
Valeu....
espero que tenha sido claro...
Poize Edilson, estou ficando meio sem argumentos ...
A solução é simples, já está postada aqui no seu tópico ... o pessoal a partir daqui vai acabar é complicando mais ainda.
Como meu código funcionou, atualiza um dtpicker através do controle timer que está no form.
Basicamente seria acrescentar a função timer a atualização de mais estes labels com um eventual DoEvents que acredito não ser necessária.
Minha última tentativa é postar a função do meu código com as alterações que eu acredito serem necessárias:
A solução é simples, já está postada aqui no seu tópico ... o pessoal a partir daqui vai acabar é complicando mais ainda.
Como meu código funcionou, atualiza um dtpicker através do controle timer que está no form.
Basicamente seria acrescentar a função timer a atualização de mais estes labels com um eventual DoEvents que acredito não ser necessária.
Minha última tentativa é postar a função do meu código com as alterações que eu acredito serem necessárias:
Private Sub Timer_Timer()
If mblnStopSecond = False Then
dtpHora.Value = Time
DoEvents
End If
'Precisa atualizar data tambem pq se mudar o dia daria pau no programa a 1/2 noite
lblDataServer.Caption = FuncaoRetornaServerDate
lblHoraServer.Caption = FuncaoRetornaServerTime
End SubCitação:. Para fazer isto use o da forma que o GUTO143 postou:Queria algo como pegar a hora que tá lá no label e ir encrementando a cada segundo.Só não sei como.
Private Sub Timer1.Timer()
Sincr_Hora_Servidor = DateAdd("s",1,Sincr_Hora_Servidor)
Labe1 = Sincr_Hora_Servidor
End Subsó lembrando que no Label vc deve colocar o nome do label que vc quer encrementar...acho que foi por isto que nao fincionou. tente ai...
Hemerson_Tadeu, vc ainda não entendeu, mais valeu .A dica de Frau resolveu...
Tópico encerrado , respostas não são mais permitidas