小数变分数

Technorati 标签: 小数变分数, 算法, VB

把小数sngX变为分数，以string形式给出。digit表示最后输出的分数的分母的位数。在立即窗口的测试结果如下：

?SngToFricStr(500.33, 1)
500又1/3
?SngToFricStr(-500.4, 1)
-500又2/5

核心算法是加黑加下划线那一行，来自http://topic.csdn.net/t/20051024/13/4346248.html 13楼。

1. Function SngToFricStr(byVal sngX As Single, Optional digit As Integer = 1) As String
2.     Dim i As Integer
3.     Dim strDen As String 'denominator
4.     Dim strNom As String 'nominator
5.     Dim strInt As String  'integer part，记录整数部分
6.     Dim intX As Integer '对sngX取整后的部分
7.     
8.     intX = Fix(sngX)
9.     
10.     '如果有整数部分，则记下来; 没有整数部分就不记了，省得最后头上多个0
11.     If intX <> 0 Then strInt = intX
12.     
13.     
14.     '取小数
15.     sngX = sngX - intX
16.     
17.     '如果是负的，而且有整数部分，就取正，省得最后像这样-5.4：”-5-2/5“
18.     If (sngX < 0) And (intX <> 0) Then sngX = -sngX
19.     
20.     If sngX = 0 Then
21.         SngToFricStr = strInt
22.         Exit Function
23.     End If
25.     i = 1
26.     While Abs((i / sngX) - Round((i / sngX), 0)) > 10 ^ (-digit)
27.         i = i + 1
28.     Wend
29.     
30.     '分子
31.     strNom = i
32.     If sngX < 0 Then strNom = "-" & strNom
33.     
34.     '分母
35.     If sngX >= 0 Then
36.         strDen = "/" & Round(i / sngX)
37.     Else
38.         strDen = "/" & Round(i / (-sngX))
39.     End If
40.     
41.     If strDen = "/1" Then strDen = ""
42.     
43.     '整数部分
44.     If strInt <> "" Then strInt = strInt & "又"
45.     
46.     
47.     SngToFricStr = strInt & strNom & strDen
48. End Function