Visual Basic - Controlar Fecha

Hola..

Tengo mi sistema que toma la fecha y la hora de la maquina, como puedo hacer para controlar esto en caso de que se atrace o se adelante la fecha.
existe alguna forma de yo pueda controlar, que me cargue la fecha y la hora actual sin tener que importar si trace o adelante la fecha de la maquina.

Espero una respuesta....
Saludos.............chau.

Eso es muy dificil. Porque si el usuario retrasa o adelanta la fecha desde
Windows, no hay forma humana de saber si es la actual o no.

¿Quien nos puede decir la fecha actual? Pues tiene que ser algo que sea
externo a la maquina.(Por narices) Para eso Internet es ideal.

Una posible solucion es agregarle a tu proyecto alguno de los
programas (utilidades) que sirven para poner el PC en la hora exacta.
(Por ejemplo NETTIME u otras)..... Y hacerlo correr mediante un SHELL.
(Estos programas siempre te dan la fecha del dia de hoy).

Otra seria, buscar alguna pagina o algun lugar que te de la fecha del dia.
(Y mejor aun si te la imprime en pantalla)

A partir de aqui conseguir "sacar" la fecha, en un fichero y darle una variable

Y una vez conseguido eso (que no es facil), compararlo con la que ha puesto
el usuario.....

Espero haberte ayudado.
Un saludo

PERDONA.....................¡¡¡SE ME OCURRE OTRA MANERA¡¡¡¡

Lo mas probable es que el usuario al instalar el Windows (98 o XP o Vista o el
que sea) lo haya hecho con la fecha del actual.

Con las API de Windows puedes sacar la fecha de instalación del Windows
y pasarla a una variable (formato Date).

Si el usuario pone una fecha ANTERIOR a la de la instalacion de Windows..... lo
detectara el programa......

Y OTRA FORMA......................TODAVIA MEJOR
..
Si dentro de tu proyecto pones una fecha (por ejemplo la del dia de hoy)
puedes poner una rutina que controle si la fecha que pone el usuario
es muy anterior o superior a dicha fecha.....

Por ejemplo esta rutina te servira...

Public Function diasPASADOS2()

fechaactual = FechAIniCIO
diaspasados = DateDiff("D", Now, fechaactual)

If Abs(diaspasados) > 360 Then

MsgBox "Programa caducado",16, "ERROR EN FECHA"

End

End If

End Function

Si desde la fecha en que tu vendiste el programa ha pasado mas de un año
ADIOSSSSSSSS :-))))

Saludos.

Hola, Javi.
Muchisimas gracias por tu ayuda.
y quiero acotar algo.. osea q si pasa mas de un año no funcionara.!