首页 >> 读书频道 >> 电脑 >> 函数小数转分数,限于整除分数
 
· 负载平衡环境下的ASP会
· JS,VBS中正则对象中
· 在ASP中使用类
· session的用法具体
· 分页技术:Oracle
· showModalDia
· 控制"纵打&q
· 用ASP做一个记事本编缉
· ASP中的错误代码技巧
· 临时表操作的一些见解
· 在ASP中如何访问Nov
· 存储过程分页
 
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
· 首批中国世界名牌产品和2
· 济南美食大全
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

函数小数转分数,限于整除分数


查看有无更新版本

关键字:ASP 2006-8-28

 

'函数实现小数转分数
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

函数小数转分数,限于整除分数

[ 1 ]
函数小数转分数,限于整除分数 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑