extract decimal component of number

[Steve]

Hi, I need to be able to seperate a number into two components, its decimal
and non decimal component.

For example:
Long Price = 108100
ModifiedPrice= Price/1000 (ie. 108.100)

I need to store these value in two different varibales
numbercomponent = ? (108)
decimalcomponent= ? (.100)

Thank you

 

[yogendra joshi]

Hope this helps...

Sub test()
Dim numbercomponent, decimalcomponent, longprice, modifiedprice

longprice = Range("A1").Value
modifiedprice = longprice / 1000
numbercomponent = Int(modifiedprice)
decimalcomponent = modifiedprice - numbercomponent

MsgBox "Numbercomponent = " & numbercomponent & vbNewLine &
"Decimalcomponent = " & decimalcomponent
End Sub


Thanks,

Yogendra

 

[Tom Ogilvy]

LongPrice = 108100
msgbox left(longPrice,len(longPrice)-3) & " - " & right(LongPrice,3)