注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

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

2011-06-02 20:18:52|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
  '函数实现小数转分数
Public Function XtoF(str As Currency, Optional fenm As Integer = 32) As String '只限于整除分数
   Dim Cfm As Currency
   Dim cfmmod As Integer
   On Error GoTo Erroreo
   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 I
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 I
End I
   Else
   XtoF = 0
   End I
   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 
  评论这张
 
阅读(182)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017