Checking number of dec.places

with regards to a thread that I posted earlier dealing with rounding down - I found the following formula for achieving this :

tempcalc = int(tempcalc * 100 + 0.5) / 100

if tempcalc = 0.016 - u get 0.02

if tempcalc = 0.015 - u get 0.01

which is the result I wanted.

Further to this, how do I return just the decimal part of a double defined variable & know how many decimal places there are?

eg - if I have 12.000156

I just want to return 000156 without the dec.point & know that I have 6 figures.

VB Code:

Private Sub Command2_Click()
    MsgBox Split(Str(12.000156), ".")(1)
End Sub

nice one - cheers

Um peet, wouldn't it be?

MsgBox Len(Split(Str(12.000156), ".")(1))

?

as he wants to know the number of decimal places, not all of them?

Quote:

---

Originally posted by da_silvy
Um peet, wouldn't it be?

MsgBox Len(Split(Str(12.000156), ".")(1))

?

as he wants to know the number of decimal places, not all of them?

---

yes... I recon he wants that as well, but I think that he might have figured out the Len function :)

to be honest... I only read the first part of the question. ..

Quote:

---

I just want to return 000156 without the dec.point

---

:)http://www.pvp.no/avatar.gif

is a better version with less white spots in the transp. area :)

How about adding this so you get a usable decimal

Code:

---

Dim Ans As Double

Ans = 12.000156 - (Int (12.000156))

---

Quote:

---

Originally posted by steve65
How about adding this so you get a usable decimal

Code:

---

Dim Ans As Double

Ans = 12.000156 - (Int (12.000156))

---

---

thanks alot Steve :(

now I feel really stupid *hrmpf*


:)

No problem just remeber this day when I ask my next stupid question :D

Hehehehe,

If it's on VBA i'm set.

I've answered a few of them recently :rolleyes:

Now, to answer his question :D

VB Code:

Dim DecPlaces As Double
DecPlaces = Len(12.000156 - (Int (12.000156)))