Convert decimal number to rational: Difference between revisions

Content added Content deleted
Line 2,797: Line 2,797:
=={{header|VBA}}==
=={{header|VBA}}==
{{trans|D}}
{{trans|D}}
<lang VBA>Function Real2Rational(r As Double, bound As Long) As String
<lang vb>Function Real2Rational(r As Double, bound As Long) As String


If r = 0 Then
If r = 0 Then
Retrieved from "https://rosettacode.org/wiki/Convert_decimal_number_to_rational"