change a number ( negative and positive)

[Silvio.Falconi]

nNumber:= 100.00

nNegative:= signo(nNumber) return - 100.00 ok
nPositive := signo( nNegative) return allways - 100.00

why ?

the function
FUNC Signo(nValue)
RETURN (IF(nValue>0, -1.0, 1.0))

[Rick Lipkin]

Silvo

Try multiplying your return number by -1 for a negative number 100 * -1 = -100

Rick Lipkin

[FranciscoA]

Maybe this idea:
n:=100
MsgInfo( if(n>0,-n,Abs(n)),"was posit, now it's negat" )

n:= -100
MsgInfo( if(n>0,-n,Abs(n)), "was negat, now it's posit" )

[Silvio.Falconi]

Armando,I wish insert "±" on msgcalc()

@ n + nlinea2,ncol6 BUTTON oBtPM PROMPT "±" OF oDlg ;
SIZE 30,25 ;
ACTION (CalcRes( cLastOpe, @nMemo, oGet, oRes, cPict,.t.,"±" ), ;
cLastOpe := "±" ) FONT oFont

on Calcres function I add

elseif cnOpe == "±"
nMemo := if(nval>0,-nval,Abs(nval) )

before let me -100.00 after if I repress the button ± not change it into positive

[Carlos Mora]

Ciao Silvio,

May be I'm missing sth, but what about, instead of

Code: Select all  Expand view

elseif cnOpe == "±"
   nMemo := if(nval>0,-nval,Abs(nval) )
 

try

Code: Select all  Expand view

elseif cnOpe == "±"
   nMemo := -nval
 

that simpler way should do what you intend, changing number's sign. ¿Isn't it?

[Silvio.Falconi]

I saw there is a function on clipper tools 5.3 sign()

http://www.itlnet.net/Programming/Progr ... cdaec.html

[Silvio.Falconi]

run also to xharbour but return - 1 or +1




I tried

nMemo := IIF( sign(nval)=1,-1*nVal,abs(nVal))

but not run

tried also in this mode
If sign(nval)= 1
nMemo :=-nVal
elseif sign(nval)= -1
nMemo := (nVal*(-1))
endif