Re: Coverting Dates in Free Format

[Hans Boldt <boldt@xxxxxxxxxx>]

Malchow, Grizzly wrote:

> I'm trying to convert a date that is *CYMD in a 7 digit Signed field to
> *MDY in a 6 digit signed field. I keep getting errors. 
>
> Here's my code 
>
> rStDate = %Date(hstSDATE:*MDY);
>
> Does rStDate have to have a date data type?

The %DATE built-in function returns a value of type date.

For 7 digit numeric *CYMD to 6 digit numeric *MDY, you need to code 
something like:

datmdy = %int(%char(%date(datcymd:*CYMD):*MDY0));

That is, first you convert the numeric from format *CYMD to a date 
value. Then, you convert the date value to character assuming format 
*MDY0 (no separator). Finally, the character value is converted to 
numeric and assigned to the target.

(For V5R1, use atoi() instead of %int().)

A future release may see a bit of improvement in this particular 
type of operation.

Cheers! Hans