RE: Date comparison

["Jonathan Mason" <jonathan.mason@xxxxxxxxxxxxxxxx>]

Hi Stiju

It's all to do with performing date calculations.  The Date(xxx) function is
ensuring that a date value is subtracted from another date value and the
result will also be expressed as a date.  If the ":nbdays" value is greater
than 30 - in other words longer than a month then you won't be able to
compare the result of the calculation directly.

Personally I would always use the "Days(xxx)" function to ensure that you
are comparing like for like, in this case the number of days difference
between two dates.

Jonathan 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Stiju Easo
Sent: 19 April 2006 12:02
To: RPG programming on the AS400 / iSeries
Subject: Re: Date comparison

>>C/EXEC SQL
>>C+                Delete from Mylib/MyFile  where
>>c+                current_date - date(DateFieldOfMyfile) >= :nbdays
>>C/END-EXEC

>>NBDays is a numeric value

The example above will work correctly as long as nbdays will be less than or
equal 30 day.
Can u say logic behind that,
 I am bit cofused.


On 4/13/06, Hauser, Birgitta <Birgitta.Hauser@xxxxxxxxxxx> wrote:
>
> Hi,
>
> >>here is a sample :
>
> >>C/EXEC SQL
> >>C+                Delete from Mylib/MyFile  where
> >>c+                current_date - date(DateFieldOfMyfile) >= :nbdays
> >>C/END-EXEC
>
> >>NBDays is a numeric value
>
> The example above will work correctly as long as nbdays will be less than
> or
> equal 30 day.






To make it also work correctly for more than 30 days it must be changed as
> follows:
>
> C/EXEC SQL Delete from MyLib/MyFile
> C+                where (Days(Current_Date) -
> Days(Date(DateFieldOfMyFile)))
> >= :nbdays
> C/END-EXEC
>
>
>
> Birgitta
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>