[Resolvido]Data da Internet

Amigos de trabalho, Boa noite!

Como posso pegar data da internet (em computador conectado - criticar) como data padrão para critério de segurança de sistema?

Muito grato

Grande abraço

Grande Avelino,

Dei uma estudada no seu código e sei que com ele irei resolver meus problemas. Já peguei data, hora, partes que me interessam disso. Enfim vai resolver meu problema.
Agora diga-me cadê a função fncSiteAtivo citada abaixo. Coloquei comentários nestas linhas e o restante funcionou, mas esta crítica é importantíssima. Inclusive como verifico se o usuário está apenas conectado?


'Verifica se o site está ativo com a função fncSiteAtivo()
'Caso o site não esteja ativo, informa valor falso de data
'------------------------------------------------------------------
If Not fncSiteAtivo("www.usandoaccess.com.br") Then
fncCapturaDataHora = #1/1/1800#
'MsgBox "Site não está aberto"
Exit Function
End If

Grande abraço

Grande Mestre

Desculpe o deslize. Havia verificado só o começo do artigo e me empolguei tanto que nem vi o resto.
Muito grato. Acho que vai dar tudo certo...

Abraços