[Resolvido]Retirar horas de data obtida pela Internet

Boa tarde Amigos

Funciona mas com data Brasileira por causa da diferença horária.

Obrigado

Boa noite amigos

Tenho um rótulo num formulário que mostra a hora sempre atualizada ao segundo com o comando abaixo.

Me.Texto5.Caption = Time$

Texto5 - É o nome do rótulo

Queria outro rótulo que mostrasse o valor do texto5 menos duas (2 horas)

por exemplo tentei assim e nada:

Me.TextoNovo = Time$ - "02:00:00"

Portanto:
O Texto5 mostrava 10:00:00


O TextoNovo mostrava 08:00:00


Obrigado

Bom dia Assis

No segundo campo na origem do controlo. =Tempo()-#02:00:00#
Formatar em: Hora completa.
Abraços
Pina

Bom dia !

Olhe o simples;

Código:

Private Sub Form_Timer()
    Me.Texto5.Caption = Time()
    Me.TextoNovo.Caption = DateAdd("h", -2, Me.Texto5.Caption)
End Sub

Bom dia JPaulo

Funciona, e para fechar o tópico.

Como o relógio vai marcando a hora certa, quando chegar ás 00:00:01 o campo que marca a data do dia (txtData) passar para o dia seguinte


Código no formulario
'==========================

Private Sub Form_Current()
Me.txtData = Date
End Sub
Private Sub Form_Timer()
Me.Texto5.Caption = Time()
End Sub

Obrigado

Viva;

Só não entendo porque você coloca a data do current do form;

O simples para a mudança, é juntar ao timer:

Código:

Private Sub Form_Timer()
 Me.Texto5.Caption = Time()
 Me.txtData = Date
End Sub

JPaulo

Não pensei nesse caso.

Vou fechar o tópico e antes da Meia Noite vou abrir o BD e testar se ao passar 23:59:59 muda a data.

Obrigado

Pode alterar a sua hora do PC para 23:59:00 e esperar apenas 1 minuto para testar.

Obrigado pelo retorno o forum agradece.

Não esquece de ajudar o fórum, 1€ faz toda a diferença.

JPaulo

Adiantei a hora como o Amigo disse para não esperar.

A data e hora do PC tudo certo.

Mas o código  Me.TextoNovo.Caption = DateAdd("h", -4, Me.Texto5.Caption), fica com formatado com data e hora

A Data na net fica igual pois só deve  mudar, só quando o textonovo.Caption mudar. + 4 horas

Importa-se de testar
Obrigado

Em resposta ao que escreveu no formulario sobre o PC;

"Quando muda a Hora no PC para + de 23:59:59 a data do PC também muda" Resposta: Lógico

Em resposta á segunda questão:

"Mas deste lado a hora fica Errada, e formata diferente" Resposta: Sim fica desformatado, porque está a retirar 4 ao zero quando muda o dia

Para isso usamos a formatação;

Código:

Private Sub Form_Timer()
On Error Resume Next

Me.Texto3 = Date
Me.Texto5.Caption = Time()
 
Me.txtData = fncCapturaData
Me.HoraNova.Caption = Format(DateAdd("h", -4, Me.Texto5.Caption), "hh:nn:ss")

End Sub

Certo JPaulo

Formatar em horas.

Só que quando a hora da Net passa a 23:59:59 o campo Me.txtData = fncCapturaData não passa para o dia seguinte.

Obrigado

Assis, alguma coisa não está bem explicada amigão.

Repare que da Net apenas você está a obter a data na caixa de texto, ambas as horas você está a obter (uma do PC e outra igual á 1ª label menos 4 horas).

Se você quer obter a data e a hora do Avelino, é outra coisa.
Pode até adicionar +4 para ficar com a hora de Portugal.

JPaulo

Como não o sei fazer no módulo estava a tentar fazer Nestum de outra maneira. eheheh

Olá Assis,

No final da função do nosso colega Avelino Sampaio adicionei o seguinte código:

Código:

'ahteixeira alteração para hora portuguesa
fncCapturaData = DateAdd("h", 8, fncCapturaData)
End Function

Está adicionar oito horas (acho que é essa a diferença)

No form criei mais um campo para a hora e atualizei com o seguinte código:

Código:

Private Sub Form_Current()
    Dim xData As Date
    xData = fncCapturaData
    Me.txtData = xData
    Me.txtHora = xData
End Sub

Será isso o que pretende?
Segue o emu teste:
cld.pt/dl/download/962c9707-0c65-423b-8939-8e8af5341942/Data_na_Internet_rev.zip

Abraço

Olá Amigos,

Assis, o JPaulo já deu a resposta na mensagem nº 4.
Como pretenda reduzir duas horas, então se for 01 da manhã será 23 horas do dia anteiror.

Veja o meu teste retirando oito horas:


Será esta a sua dúvida.

Abraço a todos

Repare na data e hora no Porto;

Download

O problema que vejo nesta obtenção de dados, é que você se for segundo a segundo á net, vai bloquear o formulário.

Aguardo retorno.

Teixeira

Eu devia ter anulado este tópico, quando cheguei a conclusão que quando a hora passava das 23:59:59 e mudava de dia no PC, no formulário nada acontecia.

Então passei a tentar captar os valores no Timer(), mas mesmo assim só consigo mudar a data e hora no PC e não consigo mudar a data naquilo a que chamo data na internet.

Como o Amigo já viu tem outro tópico que vai dar ao mesmo.

Peço desculpa Amigo, e se eu conseguisse eliminava este Tópico.

Os dois tópicos foram fundidos, assim não perdemos dados.

Veja a mensagem Nº 17

Veja

Faça novamente o Download sff.

2º Download

Só mostra isto, nada de dados

Tenho win 10 64, e Office 2013 32

Interessante, aqui mostra a data e hora;

Aproveitando, até estava a fazer uma brincadeira, para mostrar a temperatura em Lisboa;

Download

Aqui está + quente

Ola Assis, como está este tema ?

JPaulo

Continua como ontem deixa-mos.

A data do Porto não mostra apesar de abrir o formulário

As temperaturas do Lisboa funcionam .


Mas o calor hoje é em  Moscovo, vamos ver agora ehehe

Obrigado

Olá Amigos,

Assis, será alterar a URL no código, veja:

Código:

With appIE
    'Lisboa
    '.Navigate "https://www.google.pt/search?q=tempo+em+portugal&oq=tempo+em+portugal&aqs=chrome..69i57.4452j0j7&sourceid=chrome&ie=UTF-8"
    
    'Porto
    .Navigate "https://www.google.pt/search?q=tempo+porto&oq=tempo&aqs=chrome.1.69i57j0l5.4036j0j7&sourceid=chrome&ie=UTF-8"
    .Visible = False
End With

Abraço a todos

Teixeira

Não funciona.

Bom dia Assis,

E sem a alteração, o exemplo da mensagem 22 funciona para Lisboa?
Compilou o código, apresenta algum erro?
Depois verifico novamente se o código que postei funciona.

Parabéns JPaulo, ótimo exemplo e simples.

Abraço a todos

Boa tarde Teixeira

Consegui acertar com a sua dica.

Mas eu queria a data no formato dd/mm/yyyy

Eis o resultado do seu código na imagem:

Olá Assis, obrigado pelo retorno.

Na webpage que está a ler não tem data, veja como temos disponível para "captura":


Tem que ser de outro website que apresente a data.
A técnica é sempre a mesma, será ajustar conforme necessidade.

Abraço

Teixeira

O Site Máximoaccess tem data no canto inferir direito

Se der para formatar dd/mm/yyyy,

Ou depois de captar o valor der para puxar o valor para outro campo no formulário e formatar

Obrigado

Try this one;

Download

Bom dia JPaulo

Já passou a meia noite mas o dia Não mudou para 22/06/2018


A Data é BR

A Hora é PT

Assis você vai-me desculpar, mas você não pode ficar só á sombra da bananeira;

Como o código do Avelino, vai buscar a data/hora do site dele, basta você incrementar + 8 horas para Portugal, apenas ao campo que recebe a data.

Download

Código:

Private Sub Form_Timer()
On Error Resume Next
    Me.txtData = DateAdd("h", 8, fncCapturaData)
    Me.txtHora.Caption = Format(Me.txtData.Value, "hh:nn:ss")
End Sub

JPaulo
Está desculpado.
Mas também está claro desde a primeira Msg. Que a intenção era a data PT.
Obrigado

Olá Amigos,

Assis, tenho que concordar com o JPaulo (e espero que não tome a mal), além disso essa opção (solução) já tinha sido abordada na mensagem n.º 14.
Além de se "fazer" é necessário tentar "compreender" o que estamos a fazer.

Outra coisa, tenha atenção ao que foi dito na mensagem n. 16 , uma vez que está a usar no evento Form_Timer.

Abraço a todos

Olá Teixeira

Eu não levo nada a mal senão ainda fico mais velho.

Abraço

Olá Assis, que bom!
Amigo, isto é uma conversa saudável.

O tópico, creio estar resolvido, no entanto quero dar-lhe mais uma dica.

Quando alterar a hora de verão (brasileira e portuguesa) vai ocorrer um desajuste.
É necessário prever essa situação.

Com uns IF'S resolve-se a situação.

Abraço

Teixeira

Dei o tópico como resolvido, mas para mim não ficou.

Abraço

Olá Assis, se não está, vou desmarcar o Resolvido.
Ajustei o título do tópico.

O que está a faltar então?
E já agora, poderia dizer (descrever) a utilização que vai dar ao código o que pretende fazer, qual o motivo?

Abraço

Amigo Teixeira

Segurança num BD

Tenho um campo data (Bloqueado) para não ser alterado, que vai buscar a data do dia ao Computador.

txtData = Date()

Se alguém quiser registar com outra data, fecha a BD, altera a data do Computador para outra data e regista com a data que lhe apetecer.

Se o campo da data for alimentado pela data da Internet , mesmo alterando a do computador não poderá ser alterado.


Obrigado

Olá Assis,

Perfeito, também tenho um projeto quando é iniciado, lança a data numa variavel e todo o projeto usa essa data para movimentos.
Pode fazer da mesma forma, assim evita de estar constantemente a pesquisar a data, sendo feito o controle após o Login do utilizador.

Não referiu o que está a faltar?

Abraço

Teixeira


Quanto a mim falta um site Português que me desse a data.

A BD trabalha 24 horas dia

No Turno das 10:00:00 até ás 06:00:00, alterar o dia ao passar da meia noite, por isso estar no acontecimento Timer() 1000

Obrigado

Vamos lá;

Pela sua explicação apenas necessita da data certa;

Veja se serve, é PT;

Download

Olá a todos,

Assis, a titulo de piada, não me leve a mal, mas essa aplicação vai contra o novo RGPD
Ficamos aguardar o retorno relativo à ultima mensagem do colega JPaulo.

Teixeira
Estou no telemóvel. Ainda não vi o poste do Jpaulo.

O que é o RGDP ?

Olá Assis, já está em vigor desde 25-05-2018.

Veja nos links abaixo:
pplware.sapo.pt/informacao/regulamento-geral-de-protecao-de-dados-o-que-precisa-de-saber
ec.europa.eu/commission/priorities/justice-and-fundamental-rights/data-protection/2018-reform-eu-data-protection-rules_pt

Abraço

Olá a todos,

Assis, para finalizar, pois já vamos com 48 mensagens, tem mais este exemplo:
https://www.maximoaccess.com/t33653-captura-obter-data-e-hora-de-website

Abraço

Bia tarde

JPaulo

O da mensagem 44 não muda a data depois da meia noite. Hoje vou testar se i site também não atualiza .

Obrigado

Bom dia

Os dados do Site não alteram após a passagem das 23:59:59.