Cerrar programa usando fecha.

[41b3r70]

Hola. Lo que quiero hacer y no soy capaz es que al cargar un programita que estoy haciendo el programa "lea" la fecha del equipo y si es posterior a la que yo quiera el programa se cierre. Se puede hacer?. Gracias de antemano.

He probado con esto pero no va

Private Sub Form_Load()
On Error Resume Next
If Date > 04 / 12 / 2010 Then
End

Else
.......

y con formato de fecha europeo tampoco.

[erbuson]

Esto que estas poniendo detras del Date no es una fecha, es
4 dividido por 12 dividido por 2010

Prueba a usar
If Date > DateSerial(2010, 12, 4) then
End
Else
...
End If


Por cierto, no has detectado el fallo porque la Sentencia On Error lo captura y te impide verlo.

Saludos

[41b3r70]

Vale muchas gracias ha ido a la perfeccion ya lo se para la proxima jejee.