[AccessD] Date Format Again

Hi Rocky:

Why do you not use this piece of code to check the date. It does not matter
what is the format of the date, in which region because a Day is still a
day, a Month is still a month and so on... The following code will translate
any date.

if format(DateSerial(Year(Date), Month(Date), Day(Date)),"yyyymmdd") >
MyCutoffDate then...

Just pick your required result format.

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Rocky Smolin -
Beach Access Software
Sent: Wednesday, May 19, 2004 8:06 AM
To: AccessD at databaseadvisors.com
Subject: [AccessD] Date Format Again


Dear List:

I thought I had the date format problem solved but in Taiwan they use the US
format but they've got their machines set to yyyy-mm-dd.

The problem is that I have a license expiration date encrypted in a key and
so the routine that decodes the key yields (among other things) the
expiration date which I compare to the system date.

So I guess I'm going to have to use an API to get the regional setting for
short date format?  I've been mucking around in the Knowledgebase but can't
seem to find what I want.

Does anyone know the format for retrieving this item?

I guess I will have to use a Select Case on the short date format to do the
decryption to yield a short date in the local format.  And just add cases as
I find more short date formats.

MTIA,

Rocky Smolin
Beach Access Software
http://www.e-z-mrp.com

--
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com