Checking number of dec.places

[GZ1]

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.

[peet]

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

[GZ1]

nice one - cheers

[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?

[peet]

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. ..

I just want to return 000156 without the dec.point

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

[steve65]

How about adding this so you get a usable decimal

Dim Ans As Double

Ans = 12.000156 - (Int (12.000156))

[peet]

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

Dim Ans As Double

Ans = 12.000156 - (Int (12.000156))

thanks alot Steve

now I feel really stupid *hrmpf*

[steve65]

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

[da_silvy]

Hehehehe,

If it's on VBA i'm set.

I've answered a few of them recently

[da_silvy]

Now, to answer his question

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