• Home
 · 
• Math/Dates
 · 
• Converts fractions to decimals Im new to vb and this is my first complete module i got tired of loo

Converts fractions to decimals Im new to vb and this is my first complete module i got tired of loo

Converts fractions to decimals Im new to vb and this is my first complete module i got tired of looking for this code so i finally got the

Rate Converts fractions to decimals Im new to vb and this is my first complete module i got tired of loo

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'use code like this whatever=fract2dec(text1.text)
'can be used in several different ways but im using it in a mathmatical program
'so that input from a user can be a fraction and it can be used in a 
'math argument
Dim l As Variant, r As Variant, f As String, length As Single, d As Single, tens As Single
'If there is no fraction do nothing
If IsNumeric(x) Then
fract2dec = x
Exit Function
End If
'get fraction
f = right(x, 2)
'seperate fraction from whole number
'check for single or double digit in fraction and convert fraction to decimal
If Not IsNumeric(f) Then
f = right(x, 3)
r = Mid(f, 1, 1) / Mid(f, 3, 3)
length = Len(x) - 3
l = left(x, length)
Else
f = right(x, 4)
r = Mid(f, 1, 1) / Mid(f, 3, 4)
length = Len(x) - 4
l = left(x, length)
End If

'put the whole number and the fraction together after removing the 0
length = Len(r) - 1
d = (l & right(r, length))
fract2dec = d
End Function