 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
\\\'函数实现小数转分数 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 返回类别: 教程 上一教程: XMLHTTPREQUEST和AJAX虎视WEB应用开发 下一教程: 三天学好ADO之第三天 您可以阅读与"函数小数转分数，限于整除分数"相关的教程: · 动态显示图片的函数(显示广告条) · 几个ASP好用的自定义函数 · 综合的判定用户输入的合法性的函数 · 测字符串长度函数 · 产生随机密码的函数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
