[Resolvido]Capturar Data da Web para utilizar em form

Tópico movido da sala de repositório de códigos.

ribeiroguaruja, veja as regras do fórum e atente-se a elas. Precisamos manter a casa organizada.

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox ou do próprio fórum.
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

Nilton

Nas sala de repositório é proibido tirar dúvidas.
Comentários e agradecimentos é permitido.
Foi movido para este tópico que é seu do mesmo assunto.

Caso não saiba como colocar imagem e arquivos nas mensagens,
Veja esse link:

youtu.be/RqRQ2r4FTUA

copie e cole no navegador.

{ }'s

Balem

ribeiroguaruja, para o nosso fuso horário, basta acrescentar a linha destacada abaixo no código do botão do exemplo que você está usando

Private Sub CmdConsultar_Click()
'ahteixeira 2018 para MaximoAccess
'Requer função: fncDataHoraNet
Dim xData As Date

   Me.CmdConsultar.Caption = "Aguarde por favor"
   
   xData = fncDataHoraNet()
   xData = xData - CDate("04:00")
   
   Me.txtDataHora = xData
   Me.txtData = Left(xData, 10)
   Me.txtHora = Right(xData,
   
   Me.CmdConsultar.Caption = "Consultar data e hora online"
End Sub

Nilton

Veja esse Exemplo do mestre

Álvaro (AhTeixeira)

{ }'s

Balem

Ótimo!

Só um detalhe, verifique se Lisboa tem horário de verão.
Nós não temos mais.

Boa sorte !

Balem

Olá a todos,

Nilton, a solução do Damasceno é válida e podemos obter o pretendido.
Mas não é necessário, devemos ir pelo simples.

No meu exemplo partilhei o código do PHP, que mostra que está na hora de Lisboa, veja:
No servidor criei um ficheiro index.php com o seguinte código:

Código:

<?php
date_default_timezone_set("Europe/Lisbon");
echo "" . date("d-m-Y H:i:s");
?>

Portanto será consultar o Fuso Horário pretendido e alterar.

Na eventualidade de não ter um servidor próprio adicionei a hora de São Paulo aos dois websites do exemplo, ssim, será apenas necessário trocar a URL no código VBA:

dthr.dx.am/sao_paulo.php
dthr.alwaysdata.net/sao_paulo.php

Abraço a todos

Olá a todos,

Nilton, obrigado pelo feedback.
Se algum membro, precisar de outro fuso horario, pode solicitar que acrescento aos dois dominios do exemplo.