Convert decimal number to rational: Difference between revisions
Content added Content deleted
m (→{{header|VBA}}) |
m (→{{header|VBA}}) |
||
Line 2,797: | Line 2,797: | ||
=={{header|VBA}}== |
=={{header|VBA}}== |
||
{{trans|D}} |
{{trans|D}} |
||
<lang |
<lang vb>Function Real2Rational(r As Double, bound As Long) As String |
||
If r = 0 Then |
If r = 0 Then |