'函数实现小数转分数
Public Function XtoF(str As Currency, Optional fenm As Integer = 32) As String '只限于整除分数
   Dim Cfm As Currency
   Dim cfmmod As Integer
   On Error GoTo Erroreof
   
   Cfm = 1 / fenm
   XtoF = ""
   If str = 0 Then XtoF = "": Exit Function
   
   Dim point As Integer
   Dim dInt As String
   Dim dPoint As Currency
   Dim fint, fint1, fint2 As Integer
   If str <> 0 Then
        If str > 1 Then
            point = InStr(1, str, ".", 1)
            If point = 0 Then
                XtoF = str:
                Exit Function
            Else
                dInt = Mid(str, 1, point - 1)
                dPoint = CCur("0." & Mid(str, point + 1))
              &n

[1] [2] [3] 下一页

在google里搜索更多函数小数转分数，限于整除分数

	Web www.51ec.org

上一篇信息学院： 三条语句搞定路径

下一篇信息学院： 突破性的ASP+技术（转）