主页 > 知识库 > 如何编写一个小数转换分数的函数?

如何编写一个小数转换分数的函数?

热门标签:服务器配置 呼叫中心市场需求 美图手机 网站文章发布 检查注册表项 铁路电话系统 智能手机 银行业务

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))
                fint = InStr(1, XtoF(dPoint), "/", 1)
                fint1 = CInt(Mid(XtoF(dPoint), 1, fint - 1))
                fint2 = CInt(Mid(XtoF(dPoint), fint + 1))

                XtoF = CStr(dInt * fint2 + fint1) "/" CStr(fint2)

            End If
        Else
          If fenm Mod CInt(str / Cfm) = 0 Then
            XtoF = "1/" + CStr(fenm / CInt(str / Cfm))
          Else
              cfmmod = Maxgys(fenm, CInt(str / Cfm))
            XtoF = CStr(CInt(str / Cfm / cfmmod)) + "/" + CStr(CInt(fenm / cfmmod))
          End If
        End If
  Else
      XtoF = "0"
  End If
  Exit Function
Erroreof:
  XtoF = ""
End Function
Function Maxgys(num1 As Integer, num2 As Integer) As Integer
    Dim minnum, i As Integer
    minnum = num1
    If num1 > num2 Then minnum = num2
    For i = 1 To minnum
    If ((num1 Mod i) = 0) And ((num2 Mod i) = 0) Then Maxgys = i

    Next i
End Function

您可能感兴趣的文章:
  • Python科学计算环境推荐——Anaconda
  • python实现在目录中查找指定文件的方法
  • Python中分数的相关使用教程

标签:乐山 红河 沈阳 上海 新疆 长治 沧州 河南

巨人网络通讯声明:本文标题《如何编写一个小数转换分数的函数?》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266