Return variable as currency ?

[WineSnob]

Below is the code I have. I am trying to return SegInvestmentBucketStartValue as currency, but keep getting intergers?

Function fnSegmentBucketValues(nYear As Integer, SegROR As Double, pvAssets As Currency, PercAllocation As Double)
Dim I As Integer
Dim SegInvestmentBucketStartValue As Currency

For I = 1 To nYear
If I = 1 Then
SegInvestmentBucketStartValue = (pvAssets * PercAllocation) * (1 + SegROR) ^ 1
Else
SegInvestmentBucketStartValue = SegInvestmentBucketStartValue * (1 + SegROR)
End If

fnSegmentBucketValues = SegInvestmentBucketStartValue
Next I
End Function

 

[bob fitz]

Hi
You may like to try this.
Replace:

Function fnSegmentBucketValues(nYear As Integer, SegROR As Double, pvAssets As Currency, PercAllocation As Double)

With

Function fnSegmentBucketValues(nYear As Integer, SegROR As Double, pvAssets As Currency, PercAllocation As Double)
As Currency

 

[WineSnob]

SWEET .... That did it.

 

[bob fitz]

Glad it worked for you .