[Resolvido]Capturar Data da Web para utilizar em form

Caros...

Estou com uma dúvida, para implementar uma função baseado no tópico:

https://www.maximoaccess.com/t33653-capturar-obter-data-e-hora-de-website#267711

Como converter a informação obtida neste exemplo, para nosso fuso horário...

grato

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.

Basicamente o que eu quero fazer é impedir o sistema de rodar se a data do computador estiver errada...

acrescentando ao código de ahteixeira ...

===============================================
Dim strMsg As String
Dim strTitle As String
Dim xData As Date

xData = fncDataNetXML()

Me.txtData = Left(xData, 10)
Me.txtDataDif = DateDiff("d", [xData], Date)

If txtDataDif = 0 Then
   Me.txtData.ForeColor = 0 'Libera acesso ao Login
Else
   Me.txtData.ForeColor = 255
   strMsg = "A Data do Sistema não corresponde à Data Atual ! " & vbCrLf
   strMsg = strMsg & "Atualize a data do sistema em 'ajuste data/hora do Windows' "
   strMsg = strMsg & "e tente novamente"
   strTitle = "Impossível Abrir o Sistema"
   MsgBox strMsg, [vbExclamation], strTitle
   CANCEL = True
   DoCmd.Close 'Quit
End If

===============================================

boa noite

damasceno...

na meu caso, terei que mandar mensagem no privado?

vejo muitas publicações com comentários e perguntas

não estou entendendo o sistema

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

obrigado pela atenção...

resolvi com:

Me.NovoCampo= DateAdd("h",-4,[NomeDoCampo])

onde subtraí 4 horas do valor capturado no site de Lisboa...

assim a data é consertada também

   

Ó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

obrigado Teixeira!

Olá a todos,

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