Missing decimals

[PaulS]

To the experts:
My macro has the following statements (many more, but these are about my question)

Dim TotKsrt As Integer
TotKsrt = 0
For L = 12 to Lmax
TotKsrt = TotKsrt + Range("J" & L).Value
Next L

When in the worksheet amounts are found in col J, these amounts have 2 decimals. The value of TotKsrt however has been rounded.
Something wrong with the definition of TotKsrt??
Thanks,
Paul

 

[paliman]

Try

Dim TotKsrt As Long

(Integer has no decimals)

 

[Scott Huish]

Long doesn't either. Long is short for Long Integer. Try dimming as Double

 

[PaulS]

Thanks for your instant response.

The 'Long' gives the same result, but the 'Double' solves the problem. I accept it, but do not understand why.............!

Anyway thanks
Paul

 

[Scott Huish]

Long would give the same result because it is still an Integer data type.
Double stands for Double Precision. It is a data type that will allow decimal values.

http://msdn.microsoft.com/en-us/library/x99xtshc.aspx

 

[PaulS]

Thank you.

The link to microsoft made it clear.

Regards
Paul