What is default value of DateVar field?

[dean12]

I've got:

shared DateVar abc;

This is being processed by a VB routine (a UFL) and CR8.5 will give me a "Memory Full" error if I try to call the VB routine and there is not a legal date value in the variable "abc".

What I can't figure out is how to test "abc" and if it is not legal, assign a legal value like say today's date. Things like:

if IsDate(abc)

don't work because you can't pass a variable to IsDate. I tried

if abc = Date(0,0,0)

and while that compiles, it doesn't help.

Any ideas?

 

[synapsevampire]

How about just use some basic insanity checking:

if abc < Date(1,1,1920)
or
abc > Date(1,1,2010)

Perhaps a null check will be required.

-k

http://www.informeddatadecisions.com

kai@informeddatadecisions.com

 

[dean12]

I didn't try an actual date in the Date() function - guess I should have.

Couldn't figure out how to check NULL as IsNull can't be used against a shared variable near as I can tell.

Finally, I used CStr to convert to a string and passed a string into the UFL. Happily I wrote the UFL so I could change it's logic to meet the need.

 

[JoeCrystal]

You can try

If Year(abc) = 0 Then
abc=CurrentDate

I am not sure why If abc = Date(0,0,0) is not working for you. I have used and it worked.

 

[synapsevampire]

Rwriting the UFL is cheating!!!

-k

http://www.informeddatadecisions.com

kai@informeddatadecisions.com