get only figures after a decimal point

[namax]

Is there a function in visual foxpro that can be used to get the figures after a decimal point in a numerical field.

INT() function obviously is for picking up numbers before a decimal point in a numerical field for example 389.9938.If INT() is used, 389 will be shown but how about the numbers after the decimal point.What function would be use to get the remaining figures ie 9938.

Could anyone help in this.

Thankyou in advance

 

[mm0000]

mval = 389.9938

?INT(val(SUBSTR(TRANSFORM(mval),AT('.',TRANSFORM(mval),1)+1)))

 

[Olaf Doschke]

You already got the answer in the other thread, it's simply using the Int() function again, subtracting the int part:

cents = currency - Int(currency)

Bye, Olaf.

 

[MarkLuecke]

You can also use

MOD(389.9938, 1)

to return .9938, but I'd use subtracting the INT() like Olaf shows above because its easier to read the code when looking at it in the future

 

[Mike Lewis]

I'd go with Olaf's suggestion - but be aware that it won't work if the amount is negative. That can easily be fixed, like this:

[/code]
cents = ABS(currency - INT(Currency))
[/code]

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips, training, consultancy

 

[Olaf Doschke]

Well, depends on your interpretation.

value = -1.2300
dollars = Int(value)
cents = value - Int(value)

yields dollars: -1, cents: -.23

I'd not say this is incorrect. In a negative currency value both dollars and cents are negative, the sum is the correct full value. For printing this isn't optimal, but the math is fully correct.

For printing/output you should rather use TRANSFORM anyway, and the settings SET CURRENCY RIGHT/LEFT plus SET CURRENCY TO '$' or whatever other currency symbol.

Bye, Olaf.

 

[Mike Lewis]

Let's not worry about it. It was only a thought.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips, training, consultancy