Re: interval operations

define XD,DAT date,
      I1,I2 datetime year to month

 main
  let XD="12122012"
  let I1=extend(XD, year to month)
  let I2=extend(XD, year to month)
  if  (I1 - I2 = "0000-00") then
       display "OK"
  end if

end main

On Wed, Dec 12, 2012 at 1:27 PM, Mike Aubury <[email protected]> wrote:
> Any chance of a very small working (in informix) example..
> I'm guessing it could probably just be a MAIN and a simple IF statement ?
>
>
> On 12 December 2012 12:23, Michal Hajek <[email protected]> wrote:
>>
>> Hi,
>>
>> this code works in Informix 4gl, but not in aubit 4gl:
>>
>> ...
>>   when (extend(PAC.dkonec, year to month) - extend(PAC.dstart, year to
>> month) > "0000-01")
>> ...
>>
>> It gives runtime error
>>
>> Error status number -30253.
>> Can't use interval YEAR-MONTH and DAY-FRACTION together.
>>
>> I suppose meaning of the code is clear. How to re-write it for Aubit?
>>
>> Thanks, Michal
>>
>>
>> ------------------------------------------------------------------------------
>> LogMeIn Rescue: Anywhere, Anytime Remote support for IT. Free Trial
>> Remotely access PCs and mobile devices and provide instant support
>> Improve your efficiency, and focus on delivering more value-add services
>> Discover what IT Professionals Know. Rescue delivers
>> http://p.sf.net/sfu/logmein_12329d2d
>> _______________________________________________
>> Aubit4gl-discuss mailing list
>> [email protected]
>> https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss
>
>

------------------------------------------------------------------------------
LogMeIn Rescue: Anywhere, Anytime Remote support for IT. Free Trial
Remotely access PCs and mobile devices and provide instant support
Improve your efficiency, and focus on delivering more value-add services
Discover what IT Professionals Know. Rescue delivers
http://p.sf.net/sfu/logmein_12329d2d