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


4 participantes

    [Resolvido]Retirar horas de data obtida pela Internet

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 16/6/2018, 18:34

    Boa tarde Amigos

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

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty [Resolvido]Retirar 2 horas a um um valor num rótulo

    Mensagem  Assis 18/6/2018, 22:54

    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










    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Pina
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 354
    Registrado : 19/02/2011

    [Resolvido]Retirar horas de data obtida pela Internet Empty Retirar duas horas

    Mensagem  Pina 19/6/2018, 07:52

    Bom dia Assis

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  JPaulo 19/6/2018, 09:38

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 19/6/2018, 10:54

    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

    [Resolvido]Retirar horas de data obtida pela Internet Sem_ty14


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  JPaulo 19/6/2018, 11:23

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 19/6/2018, 12:26

    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


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  JPaulo 19/6/2018, 12:57

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 19/6/2018, 14:39

    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


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  JPaulo 19/6/2018, 14:54

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 19/6/2018, 15:18

    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


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  JPaulo 19/6/2018, 15:34

    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.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 19/6/2018, 15:42

    JPaulo

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


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Alvaro Teixeira 19/6/2018, 16:15

    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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Alvaro Teixeira 19/6/2018, 16:18

    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:
    [Resolvido]Retirar horas de data obtida pela Internet 010

    Será esta a sua dúvida.

    Abraço a todos


    Última edição por ahteixeira em 21/6/2018, 08:06, editado 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  JPaulo 19/6/2018, 17:08

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 19/6/2018, 17:08

    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.


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  JPaulo 19/6/2018, 17:13

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

    Veja a mensagem Nº 17


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 19/6/2018, 17:16

    Veja

    [Resolvido]Retirar horas de data obtida pela Internet Sem_ty16


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  JPaulo 19/6/2018, 17:21

    Faça novamente o Download sff.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 19/6/2018, 17:26

    2º Download

    Só mostra isto, nada de dados

    Tenho win 10 64, e Office 2013 32


    [Resolvido]Retirar horas de data obtida pela Internet Sem_ty17


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  JPaulo 19/6/2018, 17:57

    Interessante, aqui mostra a data e hora;

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

    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 19/6/2018, 18:03

    Aqui está + quente

    [Resolvido]Retirar horas de data obtida pela Internet Sem_ty19


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  JPaulo 20/6/2018, 12:21

    Ola Assis, como está este tema ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 20/6/2018, 12:54

    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


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Alvaro Teixeira 20/6/2018, 23:20

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 21/6/2018, 00:37

    Teixeira

    Não funciona.



    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Alvaro Teixeira 21/6/2018, 08:11

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 21/6/2018, 13:31

    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:


    [Resolvido]Retirar horas de data obtida pela Internet Sem_tz10


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Alvaro Teixeira 21/6/2018, 14:06

    Olá Assis, obrigado pelo retorno.

    Na webpage que está a ler não tem data, veja como temos disponível para "captura":
    [Resolvido]Retirar horas de data obtida pela Internet 011

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

    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 21/6/2018, 14:17

    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


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  JPaulo 21/6/2018, 15:10

    Try this one;

    Download




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 22/6/2018, 00:06

    Bom dia JPaulo

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


    A Data é BR

    A Hora é PT


    [Resolvido]Retirar horas de data obtida pela Internet Sem_tz11


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  JPaulo 22/6/2018, 10:17

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 22/6/2018, 10:34

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


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Alvaro Teixeira 22/6/2018, 10:42

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 22/6/2018, 11:15

    Olá Teixeira

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

    Abraço


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Alvaro Teixeira 22/6/2018, 11:25

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 22/6/2018, 11:58

    Teixeira

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

    Abraço


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Alvaro Teixeira 22/6/2018, 12:04

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 22/6/2018, 12:17

    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




    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Alvaro Teixeira 22/6/2018, 12:22

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 22/6/2018, 12:38

    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





    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  JPaulo 22/6/2018, 13:10

    Vamos lá;

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

    Veja se serve, é PT;

    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retirar horas de data obtida pela Internet Folder_announce_new Instruções SQL como utilizar...
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Alvaro Teixeira 22/6/2018, 13:46

    Olá a todos,

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

    cheers
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 22/6/2018, 14:04

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

    O que é o RGDP ?


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Alvaro Teixeira 22/6/2018, 14:30

    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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Alvaro Teixeira 23/6/2018, 03:07

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 23/6/2018, 13:49

    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




    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Assis 24/6/2018, 12:51

    Bom dia

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


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado


    [Resolvido]Retirar horas de data obtida pela Internet Empty Re: [Resolvido]Retirar horas de data obtida pela Internet

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 11:27