Re: Converting a date

[Booth Martin <booth@xxxxxxxxxxxx>]

One question no one seems sure about what stage of its evolution was the 
%date bif in V5R3?


On 1/7/2015 3:32 PM, Alan Campin wrote:
> I am lost here. If we have a numeric value, why are we converting it to an
> alpha value?
>
> d NumDate...
> d                             s             8p 0   Inz(20140101)
> d DateField...
> d                              s               d
> d NumDateUSA...
> d                             s             8p 0
> d NumDateAlpha...
> d                             s            10a     Inz('01/01/2014')
>     DateField = %Date(NumDate:*ISO); // or whatever format you need.
>
>     // convert to *USA format.
>
> NumDateUSA = %Dec(%Date(NumDate:*ISO):*USA);
>
> NumDateUSA should be 01012014.
>
> DateField = %Date(NumDateAlpha:*USA/);
>
> etc.