MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Capturar Data da Web para utilizar em form

    ribeiroguaruja
    ribeiroguaruja
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 30/05/2015

    [Resolvido]Capturar Data da Web para utilizar em form Empty [Resolvido]Capturar Data da Web para utilizar em form

    Mensagem  ribeiroguaruja 24/6/2021, 01:59

    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

    Laughing Embarassed


    .................................................................................
    affraid
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2892
    Registrado : 22/11/2016

    [Resolvido]Capturar Data da Web para utilizar em form Empty Re: [Resolvido]Capturar Data da Web para utilizar em form

    Mensagem  DamascenoJr. 24/6/2021, 02:09

    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.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    ribeiroguaruja
    ribeiroguaruja
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 30/05/2015

    [Resolvido]Capturar Data da Web para utilizar em form Empty Re: [Resolvido]Capturar Data da Web para utilizar em form

    Mensagem  ribeiroguaruja 24/6/2021, 04:03

    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

    ===============================================
    ribeiroguaruja
    ribeiroguaruja
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 30/05/2015

    [Resolvido]Capturar Data da Web para utilizar em form Empty Re: [Resolvido]Capturar Data da Web para utilizar em form

    Mensagem  ribeiroguaruja 25/6/2021, 04:11

    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
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Capturar Data da Web para utilizar em form Empty Re: [Resolvido]Capturar Data da Web para utilizar em form

    Mensagem  Noobezinho 25/6/2021, 10:54

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2892
    Registrado : 22/11/2016

    [Resolvido]Capturar Data da Web para utilizar em form Empty Re: [Resolvido]Capturar Data da Web para utilizar em form

    Mensagem  DamascenoJr. 25/6/2021, 17:04

    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, Cool
       
       Me.CmdConsultar.Caption = "Consultar data e hora online"
    End Sub


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Capturar Data da Web para utilizar em form Empty Re: [Resolvido]Capturar Data da Web para utilizar em form

    Mensagem  Noobezinho 25/6/2021, 21:27

    Nilton

    Veja esse Exemplo do mestre

    Álvaro (AhTeixeira)

    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    ribeiroguaruja
    ribeiroguaruja
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 30/05/2015

    [Resolvido]Capturar Data da Web para utilizar em form Empty Re: [Resolvido]Capturar Data da Web para utilizar em form

    Mensagem  ribeiroguaruja 26/6/2021, 00:52

    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

    Basketball  Basketball  Basketball
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    Registrado : 29/06/2012

    [Resolvido]Capturar Data da Web para utilizar em form Empty Re: [Resolvido]Capturar Data da Web para utilizar em form

    Mensagem  Noobezinho 26/6/2021, 02:06

    Ótimo!

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

    Boa sorte !

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    ribeiroguaruja gosta desta mensagem

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7283
    Registrado : 15/03/2013

    [Resolvido]Capturar Data da Web para utilizar em form Empty Re: [Resolvido]Capturar Data da Web para utilizar em form

    Mensagem  ahteixeira 26/6/2021, 12:30

    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

    ribeiroguaruja gosta desta mensagem

    ribeiroguaruja
    ribeiroguaruja
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 30/05/2015

    [Resolvido]Capturar Data da Web para utilizar em form Empty Re: [Resolvido]Capturar Data da Web para utilizar em form

    Mensagem  ribeiroguaruja 26/6/2021, 14:29

    obrigado Teixeira!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7283
    Registrado : 15/03/2013

    [Resolvido]Capturar Data da Web para utilizar em form Empty Re: [Resolvido]Capturar Data da Web para utilizar em form

    Mensagem  ahteixeira 27/6/2021, 17:48

    Olá a todos,

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

    cheers

      Data/hora atual: 25/7/2021, 04:40