资讯文章

应用
游戏
首页 应用 游戏 资讯
我自己编的,可能大家有时会用上,函数小数转分数,限于整除分数,如1/8,5/4等 来源:佚名 2006/7/19 13:44:34

3D地图沙盘场景快速设计PS插件

海岛奇兵辅助圈圈助手

红苹果全能点击王

!X3.1翻滚吧DZ论坛 v1.0 绿色版

#7Z(7-Zip简化版) 0.9.1 英文官方安装版
'函数实现小数转分数
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
<
最新精选推荐

推荐


王者之剑

悟空传手游九游版

攻城掠地

军师联盟手游

腾讯勇士竞技场Arena of Valor(海外版王者荣耀)

上海迪士尼度假区官方app

网易云音乐黑莓手机专享版

ios11固件正式版下载

Apple Music 苹果音乐

三星S8音乐播放器(S8 Edge Music Player)去广告专业版