[Resolvido]Data da Internet

Bom dia Amigo Teixeira

Apliquei o seu exemplo da data da internet, para usar como data num campo, para não deixar registar com datas futuras.

Como ontem estive por momentos sem internet, o Formulario dava erro por não ter a data, devolvia um valor assim "00:00:00" sem aspas claro.

Como vou resolver o assunto para quando não tiver internet mesmo que por pouco tempo ?

Obrigado


https://www.maximoaccess.com/t33653-captura-obter-data-e-hora-de-website

Pegue a do computador......

Olá a todos,

Assis, realmente pode falhar o acesso à internet.

Na minha opinião poderia antes de ir verificar a data da internet verificar se tem internet (existe exemplos no fórum).
Caso não esteja a funcionar pode usar a data do computador ou a mesma data do último movimento ou pura e simplesmente não deixar emitir documentos até ter internet.
Pode sempre personalizar conforme for mais conveniente.

Fica a minha sugestão.
Abraço a todos

Bom dia

Pegando as Vossas dicas scandinavo e Teixeira , funciona.

DataNet é o nome do campo que pega a data da internet.

No início a minha dúvida era o valor que o campo DataNet recebia quando não tinha internet, que era 00:00:00


Dim xData As Date
xData = fncDataHoraNet()
Me.DataNet = Left(xData, 10)

If DataNet = "00:00:00" Then
DataNet = Date
Else
End If

Obrigado

Olá a todos,

Assis, obrigado pelo retorno, o fórum agradece.

Abraço

Bom dia

Só tem um senão. Se estiver com o formulário aberto ao passar das 24:00:00 para 00:00:01 devia atualizar e não o faz. É Possível?



Obrigado

Olá Assis,

Tudo depende do intervalo que que tem no cronometro do formulario.

Se pretende que verifique ao segundo deve ser 1000 no intervalo.
Será isso?

Abraço

Teixeira

Sim, essa já está.

O pior é ter que esperar pela hora        para ver se funfa.

Abraço

Olá Assis,

Não compreendo bem o objectivo.
Mas se está a comparar na hora pode colocar por exemplo às 18:20:00 para mudar a data e contando de agora só espera 4 minutos.

Boa noite Amigos

Resolvido