Why is my calculation coming out as 0

[BerkshireGuy]

I have the following code - but the calculation is coming out to be 0
rather than the percentage.

Any ideas?

Thanks

Function GetAdoptionRate() As Integer
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim datStart, datEnd, d1 As Date
Dim intTelemedReceives As Integer
Dim intMUApps As Integer
Dim intAdoptionRate As Double

Set db = CurrentDb()

Set rs = db.OpenRecordset("SELECT * FROM qryTelemedReceives",
dbOpenDynaset)
With rs
.MoveFirst
intTelemedReceives = rs("CountOfPolicyNumber")
End With

Set rs = db.OpenRecordset("SELECT * FROM
qryMedicallyUnderwrittenReceives", dbOpenDynaset)
With rs
.MoveFirst
intMUApps = rs("CountOfPolicyNumber")
End With
Debug.Print Format(intTelemedReceives \ intMUApps, "Percent") <-------
returns 0

Set db = Nothing
Set rs = Nothing
End Function

FYI intMUApps = 24,000 and intTelemedReceives = 4,000

TIA

[Rick Brandt]

"BerkshireGuy" <be*************************@yahoo.comwrote in message
news:11**********************@48g2000cwx.googlegro ups.com...

>I have the following code - but the calculation is coming out to be 0
rather than the percentage.

Any ideas?

Thanks

Function GetAdoptionRate() As Integer
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim datStart, datEnd, d1 As Date

The line above will make datStart and datEnd as Variants. Only d1 will be a
Date. I assume that this is not what you want. It is not related to your
problem

Debug.Print Format(intTelemedReceives \ intMUApps, "Percent") <-------
returns 0

The back-slash \ operator performs Integer Division where the result has all
fractional portions truncated. I suspect that if you used a forward slash /
that you would get what you want.

--
Rick Brandt, Microsoft Access MVP
Email (as appropriate) to...
RBrandt at Hunter dot com

[BerkshireGuy]

Rick:

Thank you! I would have NEVER picked up on that - especially a day
after New Years! :)

Thanks again,
Brian

Rick Brandt wrote:

"BerkshireGuy" <be*************************@yahoo.comwrote in message
news:11**********************@48g2000cwx.googlegro ups.com...

I have the following code - but the calculation is coming out to be 0
rather than the percentage.

Any ideas?

Thanks

Function GetAdoptionRate() As Integer
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim datStart, datEnd, d1 As Date

The line above will make datStart and datEnd as Variants. Only d1 will be a
Date. I assume that this is not what you want. It is not related to your
problem

Debug.Print Format(intTelemedReceives \ intMUApps, "Percent") <-------
returns 0

The back-slash \ operator performs Integer Division where the result has all
fractional portions truncated. I suspect that if you used a forward slash /
that you would get what you want.

--
Rick Brandt, Microsoft Access MVP
Email (as appropriate) to...
RBrandt at Hunter dot com