Information générale
Titre:
As Client Budget limit to $225179981368.5286
Hi
the numeric variable data support only double type.
Result: many Currency >=$225179981368.5286 can be calculate to you in wrong way.
Attention to develop programs for customers with many moneies !!!
A short test program in order to amuse to you:
STORE NTOM(VAL(INPUTBOX("min value","Input", "225179981368.0000" ))) TO nMin
STORE NTOM(m.nMin+VAL(INPUTBOX("interval" ,"Input", "1.0000"))) TO nMax
LOCAL notEqual
?' Range : ',m.nMin,' To ',m.nMax
?'----------------------------------------------'
?' Start = : ',m.nMin
sEscape=SET("Escape")
SET ESCAPE ON
n=m.nMin
DO WHILE m.n<=m.nMax
IF (NTOM(MTON((m.n)))=m.n)=m.notEqual
IF m.notEqual
? ' Start = : ',m.n
ELSE
? ' Start # : ',m.n,TRANSFORM(NTOM(MTON((m.n)))-m.n)
ENDIF
STORE !m.notEqual TO notEqual
ENDIF
DOEVENTS
STORE m.n+$0.0001 TO n
ENDDO
SET ESCAPE &sEscape
?'----------------------------------------------'
RETURN
Fabio
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement