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
大家好,我是狂聊君。 今天来聊一聊 Mysql 缓存池原理。 提纲附上,话不多说,直...
本文转载自微信公众号「SQL数据库」,作者丶平凡世界 。转载本文请联系开发公众...
本文转载自微信公众号「SH的全栈笔记」,作者SH。转载本文请联系SH的全栈笔记公...
前言 项目开发中不管是前台还是后台都会遇到烦人的null,数据库表中字段允许空值...
CKeditor,以前叫FCKeditor,已经使用过好多年了,功能自然没的说。最近升级到3....
来源:DeepenStudy 漏洞文件:js.asp % Dimoblog setoblog=newclass_sys oblog.a...
在Flash Player 10.1及以上版本中,adobe新增了全局错误处理程序UncaughtErrorEv...
idea官方推送了2020.2.4版本的更新,那么大家最关心的问题来了,之前激活idea202...
本文实例讲述了AJAX+Servlet实现的数据处理显示功能。分享给大家供大家参考,具...
问题:我们在做flex的开发中,如果用到别人搭建好的框架,而别人的server名称往...