[Resolvido]Pegar a data do computador

Meus amigos, bom dia.
Como pegar a data de um computador  e inserir na tabela e fazer com que ele subtraia com uma data que eu coloquei na tabela.
meu objetivo é com que ele seja um sistema de teste. Se eu abrir o sistema ele vai inserir todos dos dias.
Ou inserir direto sem precisar fazer caixa não acopladas.

Código:

Private Sub Form_Open(Cancel As Integer)
Dim db      As DAO.Database
Dim sSQL    As String
Dim dataDoPc
dataDoPc = Date
  Me.Text4 = dataDoPc
    Set db = CurrentDb
        sSQL = "INSERT INTO verificar"
        'CAMPOS----------------------------------------
        sSQL = sSQL & "("
        sSQL = sSQL & "  data"
        sSQL = sSQL & ")"
        'VALORES -------------------------------------
        sSQL = sSQL & " VALUES"
        sSQL = sSQL & "("
        sSQL = sSQL & "  '" & Trim(Me.Text4) & "'"
        sSQL = sSQL & ")"
        db.Execute sSQL
End Sub

A data do pc vc pega com: Time
Agora para fazer o cálculo, deve usar a função datedif.

Daí, precisamos saber onde está a data na tabela que será calculada com a data atual,
para assim montarmos a lógica.

Marcelo, boa tarde.
Acho que seria melhor pegar a data da internet. essa eu  vou procurar como faz essa lógica que eu não sei.

Olá a todos,

Gillard, pode obter a data com a função nativa do Access:

Date()

Para operações é como o Amigo Dilson referiu:

DateDiff ou DateAdd

Se tiver dúvidas aperte a tecla F1

Se pretender obter data da internet, veja estemmeu exemplo de ajuda a outro membro:
https://www.maximoaccess.com/t33653-capturar-obter-data-e-hora-de-website

Abraço a todos

Não obtive sucesso , e o exemplo que peguei sobre pegar a data da internet demora muito. abrirei outro topico de outra maneira de validade do sistema .
obg

www.maximoaccess.com/t36301-enserir-e-verificar#248075

Olá Gillard,

Não se esqueça de dar o tópico como Resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Olá Gilliard,

Já não é a primeira nem segunda vez quer alerto e para não existir dúvida, confirme:
https://www.maximoaccess.com/t35471-ocultar-janela-do-access

Reveja as 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").[/b]
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.