Decimal/Whole # Question 1

[quietstormtw]

Hi all,

I've looked for 2 days now for something that I can use...but I'm running out of time here.

I have a calculation which gives me some results, wherein, I need to massage the data to have it formatted in a distinct format.

Calculation:

494,570.49
* .60
* .75

Answer
222,556.72

I was wondering if the was any way to strip the decimal from the answer, leaving the value of 22255672?

Thanks in advance for any assistance!

 

[PHV]

Something like this ?
Int(100 * 494570.49 * .60 * .75)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[ZmrAbdulla]

Try [tt]CLng()[/tt] function

________________________________________________________
Zameer Abdulla
Help to find Missing people
All cats love fish but fear to wet their paws..

 

[quietstormtw]

Must be the stress of the EOY processing ô¿ô Multipy by 100 to remove the decimal points. My 5th grade teacher would be upset...

Thanks PHV - you've saved my life again!!

Thanks Zameer

 

[MichaelRed]

hmmmmmmmmmmmmmmmmmmm ... mmmmmmmmmmmmmmmmmmmm but what about other calcs, which may have other numbers of 'decimial digits'?



MichaelRed

 

[MajP]

Not sure when you would use this, but this may be more generic

Public Function fncMoveDecimal(ByVal dblVal As Double) As Double
  Dim intDecimals As Integer
  If InStr(dblVal, ".") = 0 Then
    intDecimals = 0
  Else
    intDecimals = Len(dblVal & "") - InStr(dblVal, ".")
   End If
     fncMoveDecimal = (10 ^ intDecimals) * dblVal
End Function

123.45 > 12345
123.00001 > 12300001
123 > 123