Převod desetinného čísla na zlomek – Visual Basic – Fórum – Programujte.com

Neznáte na to nějakou funkci? aby když budu třeba něco dělit trojkou, pak k tomu ěnco přičtu..atd. budu mít např. číslo 2,666666666666 tak aby mi VB6 vyhodilo zlomek? :-)

Public Function Dec2Frac(ByVal f As Double) As String

Dim df As Double
Dim lUpperPart As Long
Dim lLowerPart As Long

lUpperPart = 1
lLowerPart = 1

df = lUpperPart / lLowerPart
While (df <> f)
If (df < f) Then
lUpperPart = lUpperPart + 1
Else
lLowerPart = lLowerPart + 1
lUpperPart = f * lLowerPart
End If
df = lUpperPart / lLowerPart
Wend
Dec2Frac = CStr(lUpperPart) & "/" & CStr(lLowerPart)
End Function