Function to convert: Neg.Num = 0 Pos.Num = Pos.Num

Xypher
Xypher Member Posts: 297
edited 2008-04-17 in NAV/Navision Classic Client
Is there any built in function that would provide me with these results...
A := 5;
B := -5;

A := INT(A);
//A = 5

B := INT(B);
//B = 0

Or can I achieve this by using any other function (or combination thereof)?

[I am wanting to avoid IF .. THEN]

Comments

  • Savatage
    Savatage Member Posts: 7,142 
    if YourValue < 0 then YourValue :=0;

    If it's >= zero if will pass by this code anyway.
    Why avoid IF?

    how about make a text Variable convert your OrigValue to text
    strip away any '-' from your new Text Variable.
    Convert if back to integer.
    now add your OrigValue value to the new Integer.
    then divde by 2
    I could probably get this in 1 long line of code...
    Just kidding I would use a simple if :mrgreen:

    hmmmm :whistle: ...If doesn't look so bad now 8)
    Harry Ruiz
    http://www.BiloBeauty.com
    http://www.autismspeaks.org
  • Reinhard
    Reinhard Member Posts: 249
    agree with savatage, strange to avoid IF...
    BUT... this will work without any if:
    A := (A + ABS( A ))/2
    Oztera
  • Savatage
    Savatage Member Posts: 7,142
    I forgot about ABS - might come in handy one day! \:D/

    at least i got the divide by 2 part correct :lol:
    Harry Ruiz
    http://www.BiloBeauty.com
    http://www.autismspeaks.org
  • David_Singleton
    David_Singleton Member Posts: 5,479
    Savatage wrote:
    I forgot about ABS - might come in handy one day! \:D/

    at least i got the divide by 2 part correct :lol:

    Harry I was right when some time ago I said that you are slowly coming over to the dark side 8)
    David Singleton

Categories