Decimal point to score

Technorati label: decimal point to score, algorithm, VB

Converts the fractional sngx into a fraction, which is given in string format. Digit indicates the number of digits of the denominator of the final output score. The test results in the displayed window are as follows:

? Sngtofricstr (500.33, 1)
500 and 1/3
? Sngtofricstr (-500.4, 1)
-500 and 2/5

The core algorithm is to add black and underline that line, from http://topic.csdn.net/t/20051024/13/4346248.html 13 floor.

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, record integer part
6. Dim intx as integer 'rounded up the sngx
8. Intx = fix (sngx)
10. 'If there is an integer part, write it down; if there is no integer part, do not remember it, save the last multiple 0
11. If intx <> 0 then strint = intx
14. 'Decimal'
15. Sngx = sngx-intx
17. 'If it is negative, and there is an integer, it will take the positive, save the last like this-5.4: "-5-2/5"
18. If (sngx <0) and (intx <> 0) Then sngx =-sngx
20. If sngx = 0 then
21. Sngtofricstr = strint
22. Exit Function
23. End if
25. I = 1
26.  WhileABS (I/sngx)-round (I/sngx), 0)> 10 ^ (-digit)
27. I = I + 1
28. Wend
30. 'Numerator
31. Strnom = I
32. If sngx <0 then strnom = "-" & strnom
34. 'Denominator
35. If sngx> = 0 then
36. Strden = "/" & round (I/sngx)
37. Else
38. Strden = "/" & round (I/(-sngx ))
39. End if
41. If strden = "/1" then strden = ""
43. 'Integer
44. If strint <> "" Then strint = strint & "and"
47. Sngtofricstr = strint & strnom & strden
48. End Function