Dealing with date formats on expiration date

[bliten_bsas]

Hi,

I've coded my model so that it is no longer usable after a defined
expiration date by using the following:

Sub auto_open()
Dim ExpiryDate As Date

ExpiryDate = "4-Ene-2008"

If Date > ExpiryDate Then
MsgBox ("The trial time has expired")
ThisWorkbook.Close savechanges:=False
End If

This code works just fine on my computer. However, I'm afraid the
defined value for the ExpiryDate variable (in this case is "4-
Ene-2008") might not be recognized on a different computer due to
regional specifications (the month could be read as "Jan" rather than
"Ene", the spanish equivalent). How could I define a date that can be
understood by any computer in the world?

 

[Ron de Bruin]

Hi

You can use

If Date > DateSerial(2003, 4, 1) Then