Get date question 1

[DeadIslets]

I am prompting the user to input a date with a 4-digit year. I have 'Set Century On' and my statement looks like the following:

@4,0 Say "Date of Service" Get tDOS Picture "99/99/9999"

However when the Get receives focus it prompts for the date with a 2-digit year, i.e. "99/99/99" I thought the Picture clause would take of this but evidently not. I am probably missing something obvious. Thanks for your help folks.

-Keith.

 

[GriffMG]

All you need is the set century...

Try this code

set century on
set date british
mdate = date()
clear
@ 10,10 say "Date " get mdate
read

Regards

Griff
Keep [Smile]ing

There are 10 kinds of people in the world, those who understand binary and those who don't.

 

[DeadIslets]

Griff, thanks for the response, your example runs perfectly.

In my code I already had 'Set Century On' so I added 'Set Date American' (even though this is the default). Again the initial date displays perfectly (99/99/9999), but when the Get receives focus it displays the date in the '99/99/99' format.

Thanks,

-Keith

 

[GriffMG]

If the example works, I would make sure the 'set date' was immediately prior to the 'get' and I would also make sure that (in your case) the variable being sought was of a date type - is there any chance it is actually a string?

Regards

Griff
Keep [Smile]ing

There are 10 kinds of people in the world, those who understand binary and those who don't.

 

[DeadIslets]

Griff, thanks for your promptings. Problem found.

I have 25 'Get's before the 'Read' is invoked. Down towards the bottom of the getlist there is a 'Set Century Off' statement. When I removed this my initial Date 'Get' worked fine. Moral of the story is you can't mix 'Set Century' in the middle of a getlist.

Thanks again for your help.

-Keith

 

[JCreamerII]

Keith,

Do you need to keep flipping CENTURY ON & OFF.

Jim C.

 

[GriffMG]

Happy to help.

Regards

Griff
Keep [Smile]ing

There are 10 kinds of people in the world, those who understand binary and those who don't.

 

[DeadIslets]

Jim, probably not. I haven't been in this code for along time. (Probably why I'm rusty at Clipper.) It was exhibiting some peculiar behavior so I'm going to leave Century On entirely for a while. Will probably turn it all off later and leave it that way.

Thanks,

-Keith