<div>
quick try: 

<pre><code class="code-10 nolinks" id="code-20-42393570-1">Public Function getRatio(ByVal v1 As Integer, ByVal v2 As Integer) As String
 Dim total As Integer
 Dim divider As Integer
 If v1 &gt; v2 Then
 divider = v2
 Else
 divider = v1
 End If
 
 total = v1 + v2
 getRatio = Int(v1 / divider) &amp; &quot;:&quot; &amp; Int(v2 / divider)
End Function
</code></pre>
</div>

<div>
Try &nbsp; &nbsp; &nbsp; &nbsp; 

<pre><code class="code-1 nolinks" id="code-20-42393613-1"> Dim Youth As Integer, Adulss As Integer, Ratio As String
 Youth = 8: adults = 2
 Ratio = Trim(CStr(Youth / adults)) &amp; &quot;:1&quot;
 Debug.Print Ratio
</code></pre>
</div>

<div>
@HuaMinChen 
 
This doesn't work well if: 
 
Youth = 2 and adults = 8
</div>

<div>
Hi, 
 
pls try 

<pre><code class="code-10 nolinks" id="code-20-42393709-1">Function fRatio(ByVal n1 As Long, ByVal n2 As Long) As String
 If n1 = 0 Or n2 = 0 Then
 getRatio = &quot;&quot;
 Else
 nGCD = fGCD(n1, n2)
 fRatio = n1 / nGCD &amp; &quot;:&quot; &amp; n2 / nGCD
 End If
End Function
Function fGCD(ByVal n1 As Long, ByVal n2 As Long) As Long
 Do While n2 &lt;&gt; 0
 i = n2
 n2 = n1 Mod n2
 n1 = i
 Loop
 fGCD = n1
End Function
</code></pre>
 
@Ryan Chong does not work with 8:3 gives 2:1 wrong 
 
Regards
</div>

<div>
revised to this, should work for 8:3 now. 
 

<pre><code class="code-10 nolinks" id="code-20-42393710-1">Public Function getRatio(ByVal v1 As Integer, ByVal v2 As Integer) As String
 Dim divider As Integer
 
 If v1 &gt; v2 Then
 If v1 Mod v2 &gt; 0 Then
 getRatio = v1 &amp; &quot;:&quot; &amp; v2
 Exit Function
 End If
 divider = v2
 Else
 If v2 Mod v1 &gt; 0 Then
 getRatio = v1 &amp; &quot;:&quot; &amp; v2
 Exit Function
 End If
 divider = v1
 End If
 If divider = 0 Then
 getRatio = &quot;Invalid Ratio&quot;
 Else
 getRatio = Int(v1 / divider) &amp; &quot;:&quot; &amp; Int(v2 / divider)
 End If
End Function
</code></pre>
</div>

<div>
revised again to this to handle zero: 
 

<pre><code class="code-10 nolinks" id="code-20-42393713-1">Public Function getRatio(ByVal v1 As Integer, ByVal v2 As Integer) As String
 Dim divider As Integer
 If v1 = 0 Or v2 = 0 Then
 getRatio = &quot;Invalid Ratio&quot;
 Exit Function
 End If
 
 If v1 &gt; v2 Then
 If v1 Mod v2 &gt; 0 Then
 getRatio = v1 &amp; &quot;:&quot; &amp; v2
 Exit Function
 End If
 divider = v2
 Else
 If v2 Mod v1 &gt; 0 Then
 getRatio = v1 &amp; &quot;:&quot; &amp; v2
 Exit Function
 End If
 divider = v1
 End If
 getRatio = Int(v1 / divider) &amp; &quot;:&quot; &amp; Int(v2 / divider)
End Function
</code></pre>
</div>

<div>
@Ryan Chong but does not handle well 8:6 should be 4:3
</div>

<div>
If you just want an integer ratio to one (n:1 or 1:n), a one-liner will do: 
 

<pre><code class="code-1 nolinks" id="code-20-42393730-1">Ratio = IIf(YouthNbr * AdultNbr = 0, &quot;0:0&quot;, IIf(YouthNbr &gt; AdultNbr, YouthNbr\AdultNbr &amp; &quot;:1&quot;, &quot;1:&quot; &amp; AdultNbr\YouthNbr))
</code></pre>
But what if values are 4 and 3? Should the ratio be 4:3 or 1.33:1? 
 
/gustav
</div>

<div>
@Rgonzo1971, 
 
noted for that, apparently my method didn't apply GCD. 
 
i have done another version to handle that case but don't think I wil post it here, it just look similar to what you have posted.
</div>

<div>
Hi Experts, 
 
I have taken a brief look at all of the comments between yourselves. 
 
Gustav, you are correct that a if there are 4 Youth and 3 Leaders then the Ratio would need to be the number of Youth per Leader or as you have stated 1.33 Youth Per 1 Leader. &nbsp;I would also like it to be rounded down (not up or off) to one decimal. e.g. 1.33 would be 1.3, 1.78 would be 1.7. &nbsp;How would that be coded? 
 
By the way. The end result of calculating the Ratio will be to compare it to a Specified Value (e.g. 4:1) to determine if the Ratio is equal to or less that the Specified Value. 
 
Thanks all, 
Bob C.
</div>

<div>
Hi Experts, 
 
Thanks for all your suggestions. &nbsp;All three appear to do what I need but I prefer Gustav's solution. 
 
Thanks, 
Bob C.
</div>

<div>
You are welcome! 
 
/gustav
</div>

<div>
<div class="content wysiwyg-content">
Hi Experts, 
 
I have two long integer fields: YouthNbr and AdultNbr. &nbsp;I need to calculate the ration of Youth To Adults. 
 
e.g. Youth = 8, Adults = 2, &nbsp;Ratio = 4:1 displayed this way. 
 
I want to do this in an Event using VBA, not using a Query. 
 
How do I do it? &nbsp;Is there a Function? 
 
Thanks, 
Bob C.
</div>
</div>

Hi Experts,

I have two long integer fields: YouthNbr and AdultNbr.  I need to calculate the ration of Youth To Adults.

e.g. Youth = 8, Adults = 2,  Ratio = 4:1 displayed this way.

I want to do this in an Event using VBA, not using a Query.

How do I do it?  Is there a Function?

Thanks,
Bob C.

Access 2010 VBA How To Calculate the Ratio between two Numbers

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.