Problems with Currency Datatype

[Perceptus]

I don't wish to round my values, I want to just truncate the end of my data.

Public Function t1() As Currency


Dim A1 As Currency
Dim A2 As Single

A1 = 2.01
A2 = 2.0072121

t1 = A1 * A2

End Function

in the intermediate
?t1

t1 show 4 decimal places, If i use formatnumber/formatcurrency with the 2 decimal place argument then the value gets rounded. I am not looking to round.

Should I evaluate the number like a string and use a Mid function to make the data only return 2 decimals without rounding?

[JoeM]

You can use the INT function to drop the decimal places (it just return the INTEGER portion of your number).

[Perceptus]

Dropping the decimals is not an option i need to keep track of the last 2 places. Currently I am thinking about using something along the lines of

Public Function t1() As Currency
Dim A1 As Currency
Dim A2 As Single
Dim intPos As Integer
A1 = 2.245554
A2 = 2.2525
t1 = A1 * A2
intPos = InStr(t1, ".")
t1 = Left(t1, intPos + 2)
End Function

[Bob Fitz]

Should I evaluate the number like a string and use a Mid function to make the data only return 2 decimals without rounding?

Yes, I think so.

[Perceptus]

Thank you Bob I will try this out next week.

marking as solved =)

[JoeM]

Sorry. I misread your original question.
You could multiply by 100, take the INT, and divide by 100, i.e.

Public Function t1() As Currency

    Dim A1 As Currency
    Dim A2 As Single
    Dim intPos As Integer

    A1 = 2.245554
    A2 = 2.2525
    t1 = INT(A1*A2*100)/100

End Function

Acutally, you wouldn't even need a UDF to do this. Just use the expression in the following format:

Expr1: INT(A1*A2*100)/100

[Perceptus]

That makes a bit more sense, thanks Joe.