How to destruct the program after a certain date?

[nina_le_huynh]

I need to send out a calculation program to my colleagues for evaluation and get feedback. I just want this program to work until Friday of this week. How can I do this?

Thanks,

Nina

[MrMakealotofsmoke]

couldnt u do something on the Form load.
i guess u would use date.Now
so something like

If date.now = thedate Then
Me.Close
End If

idk, just guessing

[nina_le_huynh]

If 'thedate' is February 29, 2008 then do I write it like this?

If date.now = 02/29/2008 Then
Me.Close
End If

couldnt u do something on the Form load.
i guess u would use date.Now
so something like

If date.now = thedate Then
Me.Close
End If

idk, just guessing

[obi1kenobi]

couldnt u do something on the Form load.
i guess u would use date.Now
so something like

If date.now = thedate Then
Me.Close
End If

idk, just guessing

But this way, they only need to change the system date and the app will work once again.

If 'thedate' is February 29, 2008 then do I write it like this?

If date.now = 02/29/2008 Then
Me.Close
End If

No, you wouldn't write it like that. Try this:

Dim d As New Date(2008, 2, 29)

[nina_le_huynh]

It should be ok because my colleagues wouldn't change the system date to bypass the restriction. I just want them to use the revised version.

I just tried to use 'thedate' as 02/29/2008 but it doesn't work.

But this way, they only need to change the system date and the app will work once again.

[nina_le_huynh]

It worked,

I put this into the FormLoad and I couldn't open my program.

        Dim thedate As New Date(2008, 2, 20)

        If Date.Now > thedate Then
            Me.Close()
        End If

Thank you very much, you saved me lots of time.

But this way, they only need to change the system date and the app will work once again.



No, you wouldn't write it like that. Try this:

Dim d As New Date(2008, 2, 29)

[obi1kenobi]

You're welcome, just please don't forget to rate my posts if I've been helpful. Thanks

[MrMakealotofsmoke]

yer same :P