FiveTech Support Forums

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))

Silvo

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

Rick Lipkin

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" )

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

Ciao Silvio,

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


try

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

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

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

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